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1 PROGRAM ABSTRACT 



;nstruction test 



D 1 
U June 1984 



This Level 4 diagnostu is run during VAX-1 1/730/725 Customer 
Runable Diagnostics AuTO and MENU mode. Its primary functions are: 

1) Providing a small suoset of the VAX Macro-Hardcore Instruction 
Set prior to booting the Diagnostic Supervisor, 

2) Sizing base VAX-1 1/7iO/725 disk system load devices, (via IDC, UDA50 or 
LESl controllers), using an algorithm which is defined In ENSAB-DOC 

for AUTO and MENU CRD. Sizing is done to pass the correct parameters 
through VMB.EXE to boot the Diagnostic Supervisor on the correct load 
device, 

3)*Verif1cation of LESI and UDA50 CRD supported load disk options by 
testing if the VAX-1 1/730/7P5 CRD suppported load device (RA80, RA81, 
RA60, or RC25) is spinning and reading **CRDPACK" label for the RA60 and 
RC25. 



This diagnostic was designed to be 
specifically and It is not intended to 
ENSAd.DOC the CRD AUTO and MENU mode 
information on thii diagnostic and 
VAX-1 1/750/725 CRD AUTO test. 



run on the VAX-1 1/730/725 

be APT compatible. Refer to 

documentation for further 

complete documentation on 



? MAINTENANCE HISTORY 
DATE VERSION 
25-MAY-1983 1.0 
25-JUL-19S3 1,1 
16-JAN-198<i 1,2 

02-FEB-1984 1,2 

U-Jun-198^ 1,3 



DESCRIPTION 

Initial release. 

Added LCN VAX-11/725 syntax. 

Added code for detection of IDC and detection 
of drive 1 not present In which we boot from 
drive European system configuration. 

Added code for printing on the VR1C0 terminal 
In simulated vT52 mode. LCN RL25 system 
configuration. 

Code for booting from drive when no RL02 is 

present was fixed. The 730/725 processor' 

register definitions were added The RC25 

based systems can now go straight into menu 
mode. 
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: Object Module Synopsis ! 

Module Name Ident Bytes File Creation Date Creator 



iit«a>««>* 



ENKAZOl 01-30 5080 [;BALL.ENKAZ.ENKAZ,1]EN<AZ01A,08J;5^ ''^"^UN-IW 16:01 VAX-11 Macro y03-01 

ENKAZ02 01-30 2265 C8ALL.£NKAZ.£NKAZ;i3enkAZ02A.08J;12 U-JUN-1984 16:04 VAX-11 Macro V03-01 



ZZ-ENKAZ*1.3 Mao Ffche 1 Frame F1 Seauence 5 

D'^80:CBALL,ENKAZ.eRkaZ.1]ENKAZ,EXE;13 lA-JUN-1984 16:08 VAX-11 Linker V3A-18 Page 2 



I Image Section Synopsis I 



Cluster Tyoe Pages Base Addr Disk V8N PH Protection and Paging Global Sec. Name Match Majorid Hinorid 
DErAULT^CLUSTER 15 00000000 1 READ ONLY 



Key for special characters above: 

: R - Relocatable ! 
: P - Protected ! 






■** . fc« <• -M. ■*> 



ZZ-ENKAZ-l.S Map 
DR80:CBALL.ENKAZ,ENKAZ,1]ENKAZ,EXE;13 



Psect Name 



AJONIO 

A^HARDCORE 

SIZING 



Module Name 

ENKAZ01 
ENKAZ01 
ENKAZ02 



Base 



QOOOOOQO 
00000000 



mm m 



mis 



G 1 

Fiche 1 Frame G1 Sequence 6 
U-JUN-1984 16:08 VAX-11 Linker V3A-18 Page 3 

! Program Section Synopsis I 

End Length Align Attributes 

00125F 00001260 ( 4704.) PAGE 9 PIC,USR,CON.REL,LCL,NOSHR, EXE, RD. WRT,NOVEC 
00125F 00001260 ( 470A.) PAGE 9 

013D7 Q0000178 i 376.) BYTE PIC,USR,CON,REL,LCL,NOSHR, EXB. RD, WRT,NOVEC 

013D7 00000178 ( 376.) BVTE 

1C08 OOQ008D9 ( 2265.) PAGE 9 NOPIC,USR,CON,REL,LCL,NOSHR, EXE. RD. WRT.NOVEC 
1C08 000008D9 ( 2265.) PAGE 9 



2Z-EN)CAZ-1.3 Map 
DRB0:CBALUENKAZ.ENKAZ.13ENKAZ,EXE;15 



H 1 
1A-JUN-198^ 16J08 



Fiche 1 Frame HI 

VAX-11 Linker V3A-18 



Sequence 7 



Page 



Symbol 



BAD DISK 

BOOfREADPROMPT 

CD ROY 

DRI^EO 

DS$GB^UDA50„1NIT 

DS1 

ERROR ROUTINE 

HMELK ERR 

IDCJSR 

IDC.HLD 

idc.param^o 
idc,param^1 
ioc:tst 

INlT DRVO 

inteRrupt^stack 

KERNEL^STRCK 

lesluDa parah 

MCHK^IDC 
HCHK LES UDA 
NOCNtLR.rND 
NODRIVE^O^I 
NO.LOAD 

raSo^test 

RA8081 TEST 

rasi^pRes 

RC25^PRES 
RC25^TEST 
RPBjUFF 

see 

SC60 

SCB20 

SCB2^ 

SCB^ 

SCB60 

SCB64 

SCB8 

SPIN DWN 

t£ST^6 

test:? 

TESTES 

TOP DF I stack 

topIofZkstack 
uoa^leSi 

UDA.LESI CSR 

uda^respQnse 
udJriveri 

UO.INIT 
WHAT_DRIV£ 



Value 

00001688-R 
OOOOOEOO-R 
0OOQ0Q81 
00001 7B5-R 
OOQQUfiQ^R 
00000100 
000Q0F29-R 
00001 687-R 
QQF 26200 
0000168A-R 
00QQ178A-ft 
00001 75C-R 
" 8E-R 
18A7«R 
AOJ-R 



00001 208-R 
0OQ00207-R 
00001 686-R 
00000F6A-R 
0OO0OFEO«R 
)109E«R 





11684-R 

_,J1685-R 

000011 21 «R 



0001 
001 



-R 



)0 



m 

66Q6-R 
0620-R 
62A-R 
igOA-R 
J660-R 
0664-R 
0608-R 
11689-R 
16E3-R 
17AC-R 
1C00-R 
FC-R 
O^FC-R 
iT71F«R 
FFF468 
1650«R 
16M-R 
UOO-R 
11C|-R 
1680-R 



! Symbol Cross Reference ! 

Defined By Referenced By ... 

"enkazo? ENKAZOI 

ENKAZQ1 
ENKAZ02 
I;NKA202 
ENKAZQ2 

ENKAZOI 
ENKAZQ2 
ENKA201 
ENKAZ02 
ENKAZr 

ENKAZ' 
ENKAZi 

enka; 

ENKAi 

enka; 

ENKA.,_ 
ENKAZOI 
ENKAZ01 
ENKAZ01 
EN)CAZQ2 
ENKA201 
ENKAZQ1 
ENKAZ01 



ENKAZi 

ENKAZQ2 

ENKAZOl 

ENKAZQ1 

ENKAZ01 

ENKAZ01 

ENKAZQ1 

ENKAZOI 

ENKAZ01 

ENKAZQI 

ENKAZOI 

ENKAZQI 

ENKAZ02 

ENKAZ' 

ENXAZi 

ENKAZI 

ENKAZOI 

ENKAZOI 

ENKAZ' 

ENKAZI 

ENKAZI 

ENKAZI 

ENKAZI 

ENKAZI 

ENKAZI 



ENKAZOI 

ENKAZ 02 
ENKAZQI 
ENKAZ02 



ENKAZ01 



ENKAZOI 
ENKAZI ' 
ENKAZI 
ENKAZQi 
ENKA?0 



ENKAZO? 
ENKAZQ2 
ENKAZOI 



ENKAZQi 
ENKAZOi 



£NKAi'02 



ENKAZOI 

ENnAZOI 

ENKAZOI 



ENKAZOI 
£NKAZe2 

ENKAZOI 

ENKAZQ2 

ENKAZOI 



Symbol 
WHAT^MODE 



ZZ-EN)CA2-1.3 Map 
DRBO:CBALL,ENKAZ,ENKAZ.1]ENKA2.EX0;13 



I 1 

Fiche 1 Frame 11 Sequence 8 
U-JUN-198« 16:08 VAX-11 Linker V3A-18 Page 5 



Value 
00000203-R 



Defined By 
ENKAZ01 



fieterenced By .** 
ENKAZoi 



:ZZ-ENKAZ-1.3 Map 
DRB0:CBALl,ENKAZ.ENKAZ.1]ENKAZ,EXE;13 



1 



U-JUN-198^ 16:0.'^ 



Fiche 1 Frame J1 

VAX-11 Linker V3A-18 



Sequence 9 



Page 



Value 



00000081 

00000100 

00000203 

00000207 

000006CJ 

00000604 

00000^^08 

00000620 

000006?^ 

00000660 

0000066-!. 

00000800 

000009FC 

OOOOOAOO 

OOOOOBFC 

OOOOOCOC 

OOOOOEOO 

OOO0OF29 

00000F6A 

OOOOOFEO 

00001 09E 

00001121 

00001 U 8 

000011 FA 

00001208 

OOOOUOO 

OOOOUBO 

00001650 

00«'C1680 

00001 684 

00001685 

00001686 

00001 687 

00001688 

00001689 

00001 68A 

00001 68E 

00001692 

00001 6E3 

00001 71 F 

00001 7Z6 

00001 75C 

00001786 

QQg017AC 

00001785 

00001 SA7 

0000 1 COO 
OOF 26200 

AOfFF468 



! Symbols By Value ! 
+ n. — — *««•. — — *- — + 

Symbols,,. 



C O^ROY 

OSI 
r-what mode 
r-nocnTlr FND 

R-SCB 

R-SCDA 

R-SC88 

R-SCB20 

R-SCB24 

R-SCB60 

R-SCB6A 

r-kernel.stack 
r-top of kstack 
r-intErrOpt.stack 
r«top^of,isTac< 

R-RPB BUFF 

R^BOOSREADPROMPT 

R«ERR0R^R0UT1NE 

R"N0 LOSD 

R-RA5Q TEST 

R-RA80B1 TEST 

R-'RC25 TEST 

R-UNEXJ^J 

R-MCHK^lDC 

R-MCHKlLES.UDA 

R-UD.IRIT 

R-DSSGB.UDa50.INI T 

R«UDA RESPONSE 

R-WHAT^DRJVE 

R-RA81„PRES 

R-RC25"PR£S 

R-N0DRTVE.0^1 

r-hmblk,eRr 
r-bad otsk 

R-SPlOWN 

R-IDC.FlLO 

R-IDClTST 

R-uD Driver 1 

R-TEST 6 

r«uda^Cesi 
r-lest uda param 

R-IOC PARAS 1 

R-IDC"PARAM"0 

R-TES7.7 " 

R-DRIVEO 

R-INIT_ORVO 

R-TEST'8 

IDC rsR 
udaIleslcsr 



R-SCBO 



ZZ-ENKA2-1.3 Map 
DRB0:CBAUl,ENKAZ.ENKAZ^nENKAZ.EXE;13 



Vdtue 



K 1 

Fiche 1 Frame Kl Sequence 10 

U-JUN-1984 16:08 VAX-11 Linker V3A-18 Page 



Sy..ools... 



Key for special characters above; 

* - Undefined 

U - Universal 

R - Relocatable 

X - External 



ZZ-ENKAZ-l.S Map fiche 1 Frame LI ^ ^ Sequence 11 

DR80iCBALL,ENKAZ,ENKAZ.13ENKAZ,E.'<E;13 U-JUN-1984 16:08 VAX-1 1 Linker V3A-18 Page 

+— —«—.-.««*«— ■*■ 
! Image Synopsis I 

Virtual memory allocated: 00000000 00001DFF 00001E00 (7680. bytes, 15. pages; 

Steck size: 0. pages 

Image binary \/1rtual block limits: 1.^ 15, ( 15. blocks) 

Imaae name and identification: ^iM2 01-30 

Number ot files: 2. 

Nunber of modules: 2. 

Ntimber of program sections: 5. 

Number of global symbols: 50. 

Number of cross references; 76. 

Number of image sections: 1. 

I'p'^qe type: SYSTEM. 

Map'format: FULL WJTH CROSS REFERENCE in file DRB0:C8ALL.ENKAi„ENKAZ,nENKAZ.MAP J3 

Estimated map length; 26. blocks 

! Link Run Statistics I 

Performance Indicators Page Faults CPU Time Elapsed Time 

Command processir.. 102 OOiOOjOO.29 00:00:01.87 

Pass 1: 35 00:00:00.17 00:00:00.70 

AUocation/'Relocation: 10 00:00:00.14 00:00:01.17 

Pass 2: 13 Q9'99<'Q9.22 92'W'fil'^5 

t^ap data after object module synopsis: 19 00:00:00,40 00:00:03,10 

Symbol table outpi;t: 00:00:00.11 00:00:01.07 

Totftl run ^/alues: 179 00:00:01.33 00:00:09.34 

•- .g a working set lirrited to 500 pages and 33 pages of data storage (excluding image) 

Total number object records road (both passes): 90 

of which were in libraries and 4 were DEBUG data records containing 145 bytes 

Number of modules extracted explicitly = 

with extracted to resolve undefined symbols 

library searches were for symbols not in the library searched 

A totat of 5 global symbol table records was written 

LlNK/SYMBOL=ENKAZ/NODE8UG/MAP=ENKAZ/FULL/CROSS/S>uTEM=XxO/EXE=ENKAZ ENKAZ01A,ENKAZ02A 



8 



r 



M 1 

*7"EN'^AZ-K3 CRD HARDCORE INSTRUCTION TESTS U-JUN-198*i _^ Fjchel^ Frame Ml Seguence 12 

ENKAZ01 CRD HARDCORE INSTRUCTION TESTS 14-JUN-198^ 16:01:36 VAX-11 Macro V03-0T Page 

Table ot contents 

vO 71 DECLARATIONS 

(^^ 335 BOOIREADPROMPT - Prompt and read ^'.put string 

('.) ^55 PRCMPT1 - Routine to prompt console for Input 

(4) 456 BOOSTYPE ASCIC - Type a counted ASCII string 

C4) 497 PRINT ROOTINE 

(4) 517 ERROR ROUTINE 

(4) 602 RA60 PRINT ROUTINE 

(4) 65/ RA80 AND RACI PRINT ROUTINE 

(4) 700 RC25 PRINT ROUTINE 

(4) Ikl EXCEPTION HANDLER ROUTINES 

(6) 803 INITIALIZATION ROUTINE 

(7) 860 TFST I: AOBLEQ, AOBLSS Test 

(8) 908 TEST 2: S08GEQ, S0B6TR Test 

(9) 95A TEST 3: BBS, BBC Test 

(10) 982 TEST A: BBSS, BBCS Test 

(11) 1020 TEST 5: BLBS, BLBC Test 

(12) 1051 Diagnostic Subroutines 




;Z2-EK.nAZ-1.3 
:Ci-50 



CRD HARDCORE 



TESTS 



instruction; 
crd hardcore 



OOOO 

OCOO 

C^OO 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

OOCD 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

OOOO 

0000 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

0300 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

OOOO 

UOOO 

COOO 

ooc: 



INSTRUCTION TESTS 



N 1 
U-JUN-1984 

U-JUN-198 
U-JUN-19t 



Pi'che 1 Frame N1 Sequence 13 
16:01:36 VAX-11 Macro V03-0T Page 1 
15; 53:29 DR80-CBALL.ENKAZ.ENKAZ.13ENKAZ01A. (1) 



1 
2 

^ 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 

16 
17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

AO 

41 

42 

45 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



.TITLE 
.IDENT 



ENKA201 
/01-30/ 



CRD HARDCORE .-i^JSTRUCTION TESTS 



CopyriQht (c) 1982 ^,,^^ 

Digital Equipment Corporation, Maynerd, Massachusetts 01754 

This softw'ire is furnished under a license for use only on a single computer 
system ai-d may be copied only with the inclusion of the above copyright 
notice. This software, or any other copies thereof, may not be provided or 
otherwise made available to any other person except for use on such system 
and to one who aqreei, to these license ;;erms. Title to and ownership of the 
software shall at all times remain in DEC. 

The information in this software is subject to change wichout notice and 
should not be construed as a commitment by Digital Equipment Corporation. 

DEC assumes no responsibility for the use or reliability of its software on 
equipment which is not supplied by DEC. 

Facility; 

Vax Diagnostic Library 

Abstract: 

This diao'^ostic provides level 4 coverage while executing Customer 
Runable Diagnostics. Its primary functions are: 

1) Providing a small subset of the VAX Macro-Hardcore Instruction 
Set prior to booting the Diagnostic Supervisor. 

2) Sizing base VAX-11/730 disk system load devices via IDC, UDA50 or 
LESI using an algorithm which is defined in ENSAB.DOC for AUTO and 
MENU CRD. Sizing is done to pass the correct parameters through 
VM8.EXE to boot the Diagnostic Supervisor on the correct load 
device. This is done utilizing PUBTDRIVER module. 

3) Verification of KL^SI and UDA50 CRD supported load disk options by 
testing if the VAX-11/730 CRD suppported load device (RA80, RA81, 
RA60, or RC25) is spinning and reading "CRDPACK" label for the RA60 
and RC25. 

EnvVonment : 

Stand-alone 
Author: 

Peter Gr'^en 23-M3y-83 



Peter Green 5-JUL-83 
Aoderi LCN syntax. 



Version 1.0 
Version 1 1 



B 2 

ZZ-ENKAZ-1,5 CRD HARDCORE INSTRUCTION TESTS ;^-JUN-1984 .^^/JS^if J,/''aiJie B2 ^ . «,Seguence H 

cNi;AZ01 CRD HARDCORE INSTRUCTION TESTS U-JUN-198A 16!01:36 VAX-11 Macro V03-0T Paae 2 

01-30 U-JUN-198'i 15:53i29 DRBOiCeALL.ENKAZ.ENKAZ,13£NKA201A. (1 > 

0000 58 ; — 




C 2 

Z2-ENKAZ-1.3 CRD HARDCORE INSTRUCTION TESTS U-JUN-198A ,«„ /I^he 1 Frame C2 ^ „rt,Seguence 15 

ENKAZ01 CRD HARDCORE INSTRUCTION TESTS U-JUN-1984 16:01:36 VAX-11 Macro V03-0T Page J^ 

01-30 U-JUN-198A 15:53:29 DR80:C8AIL.ENKAZ-EN)CAZ.13ENKAZ01A.(3> 

0000 60 

0000 61 

9909 62 ; 

0000 63 ; Revision 

0000 6^ ; 

00000001 0000 65 PRIM REV = 1 

00000003 0000 66 SEC.REV = 3 

0000 67 ; 

0000 68 ; 

0000 69 



ZZ-ENKA2-1,3 

ENKA201 

01-50 



DECLARATIONS 



CRD HARDCORE 
DECLARATIONS 



INSTRUCTION TESTS 



D 2 
U-JUN-198^ 



Fiche 1 Frame D2 



Sequence 16 



U-JUN-1984 16:Qli36 VAX-11 Macro V03-0t Page 4 

U-JUN-1984 15;53:29 DRB0!C8ALI.£NKAZ,ENKAZ_13ENKAZ01A.(4) 



QOOQ 
00000000 

88oo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
QOQO 
0000 
0000 
0000 
0000 
0000 
0000 
onoo 
0000 
0000 
0000 

n 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00% 
0000 
0000 
0000 
000 



? 



0000 
0000 
0000 
0000 
0000 



71 
72 
73 
74 
75 

76 : 

77 ; 

79 
80 
81 .MACRO 

§2 

83 ,ENDM 

84 

85 .MACRO 



.S8TTL DECLARATIONS 
.PSECT A^CONIO, PAGE, PIC 



.LIST MEB 
Macro's 



PASS MESSAGE 
.ASCTC / 
PASS MESSAGE 



PASSED/<13><10><13><10> 



86 
(7 . 

88 



87 .ENDM 



FAIL MESSAGE , , , 

,ASClC / *FA]LED*/<13><1 0x1 3x10x1 3><10> 
FAIL MESSAGE 



ABORT MESSAGE 

.ASCJC /TEST ABORTED - / 

ABORT.MESSAGE 

CPU MESSAGE 

.ASfJC /CPU BAD - / 

CPU^MESSAGE 

FIELD MESSAGE 

.ASCI7 /CALL FIELD SERVICE/ 

FIELD^MESSAQE 



19 .MACRO 

90 

91 .ENDM 

92 

93 .MACRO 

94 

95 .ENDM 

96 

97 .MACRO 

98 

99 .ENDM 
100 
101 .MACRO NOCNTLR.MESSAGE 



102 

103 .ENDM 

104 

105 .MACRO 

107 .ENDM 

108 

109 .MACRO 

110 

111 .ENDM 

112 

113 .MACRO 

114 

115 .ENDM 

116 

117 .MACRO 

118 

119 .ENDM 

120 

121 .MACRO 

122 

123 .ENDM 

124 

125 .MACRO 

126 

127 



.ASCIC "/NO SUPPORTED DISK CONTROLLER F0UND/<13><10> 
NOCNTLR.MESSAGE 

NODRJVE01 MESSAGE ^ . , .. 

.ASCIC /ONSUPPORTED DISK CONFIGURATION FOUND - DRIVE AND 1/<13><10> 
NODRIVE01 ^MESSAGE 

LOAOMCK^MESSAGE 

.ASCIC /UNEXPECTED MACHINE CHECK WHILE VERIFYING LOAD PATH/<13X10> 

L0ADMCK.HESSA6E 

DISKERR^MESSAGE 
.ASCIC /DRIVE BAD - / 
DISKERR^MESSAGE 

END MESSAGE 

.ASriC <13x10>?*»** END OF VAX-11/730.725 ? 

END^MESSAGE 

TEND MESSAGE 

.ASCTC ?TEST ****'?<13x10xl3><10> 

TEND^MESSAGE 

RET MESSAGE 

.ASriC 7RETURNING TO VAX-11/730,725 CONSOLE, WAIT FOR «>»• PROMPT?- 
<13><10> 



ZZ-ENKAZ-1.3 

ENKAZ01 

01-30 



DECLARATIONS 



CRD HARDCORE INSTRUCTION TESTS 
DECLARATIONS 



E 2 
U-JUN-1984 Fiche 1 Frame £2 Sequence 17 

U-JUN-198-i 16:01:36 VAX-11 Macro V03-01 Pa 

U-JUf*'1984 15:53:29 DRB0:CaALL.ENKA2.£NKAZ_13ENKAZ 



e 5 



GOOD 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0099 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0990 

0000 
0000 
0000 

n 

0000 
0000 
0000 
0000 
0000 



128 
'29 
130 
131 
132 
133 
131 
155 

137 
138 
139 

uo 

U1 

U2 

143 

U4 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

15 

15 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

17? 

178 

17 

1 

1 

1 

1 

184 



.ENDH RET^MESSAGE 



? 



.MACRO 

.ENDM 

.MACRO 



.ENDM 
.MACRO 



.ENDM 

.MACRO 

.ENDM 

.MACRO 

.ENDM 

.MACRO 
.ENDM 

.MACRO 

.ENDM 

.MACRO 

.ENDM 

.MACRO 

.ENDM 

.MACRO 

.ENDM 

.MACRO 

.ENDM 

.MACRO 

.ENDM 

.MACRO 

.ENDM 



PROPER^MESSAGE 

.ASCIC <13><10><13><10>/** 

PROPER MESSAGE 



PROPER SETUP REQUIRED 



**/ 



NSPN6025.MESSAGE 
.ASCJC <13><10>/** 
<13><10>/*'* 
NSPN6025.MESSA6E 



CHECK FOR DIAGNOSTIC PACK CROPACK 
INSERTED AND SPINNING IN / 



*«/« 



DRVERR MESSAGE 

.ASCK /** IF SETUP IS CORRECT, SUSPECT DRIVE 

/** PROBLEM - / 
DRVERR^HESSAGE 

SPNEND MESSAGE 

.ASCJC / **/<13><10> 

SPNEND^MESSAGE 



**/<13><10>- 



CHECK THAT DUAQ: IS SPINNING 



NSPN8081 MESSAGE 
.ASCIC ^13><10>/** 
NSPN8081 ^MESSAGE 

AUTO^MESSAGE 
.ASCTC /AUTO / 
AUrO.MESSAGE 

MENU.MESSAGE 
.ASCiC /MENU / 
MENU.MESSAGE 

TEST MESSAGE 

.ASCTC /TESTING STARTED - ;^UN TIME = 0:30 MINUTES/ 

TEST^MESSAGE 

PART MESSAGE 
.ASCTC /PART 1 / 
PART^MESSAGE 

RC25 MESSAGE 
.ASCTC /RC25 / 
RC25.MESSAGE 

RA60 MESSAGE 
.ASCiC /RA60 / 
RA60,MESSAGE 

RA80 MESSAGE 
.ASCTC /RA80 / 
RA80^MESSAGE 

RA81 MESSAGE 
.ASCTC /RA81 / 
RA81_M£SSAGE 



**/<13><10> 



.MACRO DAAO^MESSACE 



Z2-ENKAZ-1,3 

ENKAZOl 

01-30 



DECLARATIONS 



CRD HARDCORE INSTRUCTION TESTS 
DECURATIONS 



F 2 
U-JUN-1984 Fi'chi 

U-JUN-198A 16:1 
U-JUN-1984 15:1 



' 1 
3:29 



Frame F2 Seguf-nce 18 

VAX-11 Macro V03-0T Page 6 

DR80:C8ALL,ENKAZ.ENKA2 nENKAZOIA, (4) 



00000200 
101D 31 



00000012 
OOOOOOOA 

^mn 

OOOOOOOD 

???» 

<;0FFF468 

mqqm 
'ooooooo o; 

lOOQOOOO Oi 
lOOOOOl 

m 

00( 



0000 
0000 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

m 

0203 
0203 
0203 
0203 
0203 
0203 
0203 
0203 



mi 

0203 



i?i 



OD ¥* A5 55 53 O 50 20 20 20 20 

OA OD 



20 <'*A AC 45 A9 



46 20 AC AC A1 A 
A5 A5 A9 56 52 A 



2A 4A 45 AC a; A1 A6 2A 20 20 20 

OA OD OA OD OA 



45 5A 52 4F 42 41 ?0 5A 53 A5 54 00' 




185 

186 .ENDM 

187 

188 .MACRO 

190 .ENDM 

191 

192 -MACRO 

193 

19A ,ENDM 

195 

196 .MACRO 

197 

198 .ENDM 

199 

200 

201 

202 



.ASCIC /DAAO 
DAAO.MESSAGE 

DJAO MESSAGE 
.ASCTC /DJAO 
DJAO.MESSAGE 

DJA1 MESSAGE 
.ASCTC /DJA1 
DJA1.MESSAGE 

DUAO MESSAGE 
.ASCiC /DUAO 
DUAO MESSAGE 



JMP to the starting address. 



18? 



, - *X200 
6RW INIT1 



Equated symbols: 



)A 
205 
206 
207 

298 
209 

210 

211 IPL 

212 MCKADD = 

213 TXCS « 
21 A TXD8 

215 CR 

216 IF 

217 IDC^CSR 

218 UDA^LESICSR 

219 BOOlC^COflBUFSZ 

220 WHAT BODE : : 

221 NOCNTlR FND:: 
LOAD.ERROR: 

., CPU.BAD: 
•A PASS.COUNT: 
'5 RA60"MESS.ST: 

RA8Q81.ME5S.ST: 
, RC25 mESS^ST; 
»8 PRINTPASS: 

, ASCIC 



229 PRINTFIELD: 

.ASCIC 



230 PRINTFAIL: 

.ASCIC 



231 PRINTA80RT: 

.ASCIC 



18 

A 

3A 

35 

13 

10 

== *XF26200 

= = '*XA0FFFA68 

132 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
.LONG 
PASS^MESSAGE 
/ PASSED/<1 3x10x1 3><10> 



FIELD.MESSAGE 

/CALL FIELD SERVICE/ 



FAIL^MESSAGE 

/ ?FAILED*/<13><10><13><10><13><10> 



ABORT MESSAGE 
/TEST ABORTED - 



ZZ-ENKAZ-1.3 

ENKAZ01 

01-30 



DECLARATIONS 



CRD HARDCORE INSTRUCTION TESTS 
DECLARATIONS 



20 2D 20 AA 
OF 



20 A^ 4E A5 20 2A 2A 2A 2A OA OD 00* 
33 37 2F 31 31 2D 58 A1 56 20 A6 AF 

f 37 2C 30 
ID 



20 35 



OA OD 2A 2A 2A (fA 20 5A 53 A5 5A 00' 

OA OD 
OD 

5A 20 A7 At" A9 AE 52 55 5A A5 52 00' 
30 33 37 2F 31 31 2D 58 A1 56 20 AF 
A5 AC AF 53 AE AF A3 20 35 32 I? 2C 
27 20 52 AF A6 20 5A A9 A1 57 20 2C 
OD 5A 50 AD AF 52 50 20 27 3E 3E 3E 

OA 
3C 



55 5A A5 53 

SA A3 AS 52 

52 /-A 20 5A 

AF 52 50 20 



A6 A9 
AF A3 
A5 50 
2A 2A 



20 
20 



^0 

•D 



20 
53 

3 55 53 

20 A5 





r 



10 

20 



2A 2A 
A9 20 

2C 

6 A9 

2A 2A OA 

AD A5 AC A2 
3E 



2D 20 AA 41 A2 20 A5 56 A9 52 AA 00' 

20 
OC 



20 AA A5 5A A3 A5 50 58 AS A 

A3 A5 A8 A3 20 A5 AE 49 A8 A 





A9 5 

50 2 



55 00' 
.. ., .. ., ^ A1 AD 

, A5 AC A9 A8 57 20 A0 

AA A1 AF AC 20 A7 AE A9 59 A6 

OA OD A8 5A A1 
3A 



AS 56 



AS 5A 52 AF 50 5 
S2 5A AE AF A3 2 



55 55 20 AF AE 00' 
AB S3 A9 AA 20 AA 



00 AA AE 55 AF A6 20 52 A5 AC AC AF 

OA 



AA A5 5A 52 AF 
A7 A9 A6 AE AF 
AE 55 4F A6 
20 30 20 A5 




OA OD 31 




A JA ^D jA 



;a A5 53 20 52 A5 50 
09 AA AS 52 A9 55 51 A5 Si 

2A 2A 20 20 20 20 21 




232 PRINTEND: 



.ASCIC 



233 PRINTTEND: 

.ASCJC 



23A PRJNTRET: 



.ASCJC 



235 PRINTDRVERR: 

.ASCJC 



236 PRINTDISKERfi: 
.ASCJC 



237 PRINTLOADMCK: 
.ASCJC 



2A0 PRINTPROPER: 

.ASCJC 



6 2 

1A-JUN-198A Fi'che 1 Frame 62 Seguence 19 

1A-JUN-198A 16:01:36 VAX-11 Macro V03-0T Page 

1A-JUN-198A 15:53:29 DRB0:CBALL.ENKAZ.ENKAZ,1DENKAZ01A. 



END MESSAGE 

<135<10>?**** END OF VAX-11/730,725 ? 



7 
(A) ; 



TEND MESSAGE , ^^ ^^ ^^ 
?TEST ****?<13><10><13><10> 



RET MESSAGE 

7RETURNIN6 TO VAX-11/730,725 CONSOLE, WAIT FOR •>»' PROMPT?- 



DRVERR MESSAGE , ,. 

/** JF SETUP IS CORRECT, SUSPECT DRIVE **/<13><10>- 



/itH 



PROBLEM - / 



OISKERR MESSAGE 

/DRIVE Bad - / 



LOADMCK MESSAGE , ^ 

/UNEXPECTED MACHJNE CHECK WHILE VERIFYING LOAD PATH/<13><10> 



238 PRJNTNOCNTLR: 
.ASCJC 



239 PRINTNODRJVE01: 
.ASCJC 



N0CNTLR.MCSSA6E 

/NO SUPPORTED DISK CONTROLLER F0UND/<13><10> 



NODRJVEOI.MESSAGE 

/UNSUPPORTED DISK CONFIGURATION FOUND - DRIVE AND 1/<15><10> 



PRQPER.MESSAGE 
<13><10><1S><10>/** 



PROPER SETUP REQUIRED 



»*/ 



..I -d 



H 2 

ZZ-ENKAZ-1.3 DECLARATIONS U-JUN-198'i _ FicheJ, Frame h2 Seguence ?0 

ENKA201 CRD HARDCORE INSTRUCTION TESTS U-JUN-1984 16:Q1:36 VAX-11 Macro V03-0T ^, ^^^^ Page 8 

0l!:30 DECLARATIONS 14-JUN-1W 15:53!29 DRaO:CfiALL.ENKAZ.£NKAZ.13£NKA20lA*(4) 



03D8 2^1 PRJNTNSPN6025 : NSPN6025.^ESSAGE 

_ . , . , ^ 00' '^ ' 

53 4F ^E 47 41 49 4A 20 52 4F 4i 



4B 43 45 48 43 20 20 2A 2A OA OD 00' OSDB .ASCJC <13><10>7** CHECK FOR DIAGNOSTIC PACK CRDPACK **/- 

53 4F 4E 47 41 49 4A 20 52 4F 46 20 03E7 
44 52 45 20 4B 43 41 50 20 43 49 54 03F3 



'A 2A 09 4B 43 41 50 Q3FF 

45 53 4E 49 20 50 20 20 2A 2A OA OD 0406 <15><10>/** INSERTED AND SPINNING IH / 

49 50 53 20 44 4E 41 20 44 45 54 52 0412 

20 4E 49 20 47 4E 49 4E 4E 641E 

48 03DB 



48 43 20 20 20 20 20 2A 2A OA OD 00' 
41 5S 44 20 54 41 48 54 20 4B 43 45 

49 4E 4E 49 50 53 20 53 49 20 3A 30 



427 242 PRINTNSPN8081: NSPN808V MESSAGE , ^, ,^ 

427 .ASCIC <13><10>7** CHECK THAT DUAO: IS SPINNING **/<13><10> 



1433 

_ . J43F 

OA OD 2A 2a 20 20 20 20 20 47 4E Q44B 

2E 0427 

0456 243 PRINTSPNEND J SPNEND^MESSAGE 
OA OD 2A 2A 20 20 20 20 QQ* 0456 .ASCIC / •^/<13><10> 

08 0456 
045F 244 PRINTAUTO: AUTO MESSAGE 

20 4F 54 55 41 00* 04SF .ASCIC /AUTO / 

05 045F 

0465 245 PRINTMENU: MENU MESSAGE 
20 55 4E 45 4D 00* 0465 .ASCIC /MEND / 

OS 0465 

0468 246 PRINTPART: PART MESSAGE 
20 20 20 31 20 54 52 41 50 00' 0466 .ASCIC /PART 1 / 

09 0468 



41 54 53 20 47 4E 49 54 53 45 54 QQ' 0475 .ASCIC /TESTJNG STARTED - RUN TIME = 0:30 MINUTES/ 

54 20 4E 55 52 20 2D 20 44 45 54 52 0481 
4D 20 30 33 3A 30 20 3D 20 45 4D 49 048D 



53 45 54 55 4E 49 0499 
29 0475 

g49F 248 PRINTCPU: CPU^MESSAGE 

20 20 20 44 41 42 20 55 50 43 00' 049F .ASCIC /CPO BAD - / 

OA 049F 

04AA 249 PRINTRC25: RCSS^MESSAGE 
20 35 32 43 52 QQ* Q4AA .ASCIC /RC25 / 

OS 04 AA 

0480 250 PRINTDAAO: DAAO MESSAGE 
20 30 41 41 44 00' 0480 .ASCIC /DAAO / 

0486 251 PRINTDUAOj DUAO.MESSAGE 

20 30 41 55 44 00' 0486 .ASCIC /DUAO / 

05 0486 

048C 252 PRINTi^JAO: OJAO MESSAGE 

20 30 41 4A 44 00' Q46C .ASCIC /DJAO / 

05 Q4BC 

54C2 253 PRINTDJAl; DJAl MESSAGE 

20 31 41 4A 44 00' 04C2 .ASCIC /DJAT / 

05 04C2 

Qhd 254 PRINTRA60: RA60.MESSA6C 

20 30 36 41 52 00' Q4C8 .ASCIC /RA60 / 

05 04C6 

OhCE 255 PRINTRA80: RA80 MESSAGE 

iO 30 38 41 52 QQ' 04CE .ASCJC .'RA80 / 

05 04rE 






ZZ-ENKAZ*1.5 

ENKAZOI 

01-30 



DECLARATIONS 



CRD HARDCORE INSTRUCTION TESTS 
DECLARATIONS 



I 2 

1A-JUN-198A 



Fiche 1 



Frame U 

.. .... ..,. ., , -11 Macro V05-01 Pagi 

U-JUN-1984 15:53:2$ DRB0iC8ALL.ENKAZ.ENKAZ_13ENKA7O1A. 



U-JUN-1984 16j01:36 VAX' 



Sequence 21 
Macro V03-0T 



Page 



9 
(A) 



0AD4 

20 31 38 A1 52 00' OADA 

05 QAD4 

04DA 

0000055E OADA 

000005E2 055E 



m 

0000Q62I 
OOQQOOOI 

OOOOQOI 
000008( 



000009FC 
00000000 



oooooooo 



OOOOOEOO 



» 



256 PRINTRA81: 

,ASCIC 



RA8VMESSAGE 
/RA8T / 



.LONG 
.LONG 
,8LKL 
.LONG 
.SLKL 
.LONG 
,BLKL 








257 

258 B00$GT,C0M8UF; .BLKB 132 

259 BOOSGL.FREEMEM: .BLKB 132 
260 

261 .ALIGN PAGE 

262 
163 

»A see;: 
(5 SC80:: 
•66 SCBA:: 
!67 SC88:: 
168 SCB20: 
>9 SCB2A: 
'0 SCe60: 
J?1 SC86A; 
272 
275 

275 

276 KERNEL^STACK:: ,BLKL 
V7 TOP OF KSTACK:; .LONG 
78 

79 .ALIGN 

180 

rSI INTERRUPT STACK;: 
12 TOP^OF^ISTACK;: .LONG 

tA .ALIGN 



15 



103 



AMgn Srs on page boundary 

SYSTEM CONTROL BLOCK 
(RESERVED) 
MACHINE CHECK 

ACCESS CONTROL VIOLATION 

WRITE NON-EXISTENT MEMORY 



RPB.aUFF:; 



.ALIGN PAGE 

127 



PAGE 

.8LKL 


PAGE 

.BLKL 128 



127 



Align INTERRUPT STACK 
on page boundary 
Allocate a stack area 
Set top of stack pointer 



Align INTERRUPT STACK 
on page boundary 
AUocate a stack area 
Set top of stack pointer 

Align RPB on page boundary 

Set top of stack pointer 



+♦ 



Facility; System Boo'-strapping 

Abstract: CONIO provides basic console read^readprompt and write facilities. 

Environment; Mode=Kernel 

Author; RICHARD I. HUSTVEDT, Creation date; 27-APR-1978 

Modified by: PETER GREEN 23-MAY-1983 

MODIFIED TO PROMPT FOR ERROR PREPARATION MESSAGES. 

Darryl L. lall U-June-198A 

Added 730/725 Processor register def1nv;-ons. Needed for compilation 
under Version A.X of VAX/VMS. 



ZZ-ENICAZ-1.3 

ENHAZ01 

01-30 



DECLARATIONS 



CRD HARDCORE 
DECLARATIONS 

OEOg 
OEOO 
QEOO 
OEOO 
OEOO 
OOOOOEOO 
OEOO 

9E0O 
OOOOOEOO 
OEOO 
QEQO 
OEOO 
OOOOOEOO 



INSTRUCTION TESTS 



0001 

08000015 
0000007F 
00000000 




m 

OEOC 
OEOO 

om 

OEOI 
OEQI 
OEOI 
OEOO 
OEOO 



OEOO 
OEOO 
OEOO 
OEOO 
OEOO 
OEOO 



5^1 
312 

313 



3H 



315 



J 2 

U-JUN-19eA 

U-JUN-198'; 
H-JUN-198'i 



FUhe 1 
16:01:3 
15:53:2 



Frame J? Sequence 

VAX-11 Macro VO3-0T 
ORBOiCBALL.ENKAZ.ENKAZ 



22 



Page 
IDENKAZO 



10 
1A.(A) 



Include files: 



IPRDEF 

,SAVE LOCAL BLOCK 

.PSECT IabssTabs 

•RESTORE 

$PR730DEF 

.SAVE LOCAL.BLOCK 

.PSECT SABSS^ABS 

.RESTORE 

SSSDEF 

.SAVE L0CAL,.8L0CK 

.PSECT $ABS$,ABS 

.RESTORE 



; Define processor registers 



; Define 730/725 processor registers 



; Define status code values 



MACROS: 



Equated Symbols: 



CR =13 
LF " 10 
CONTROL^U « 21 
RUBOUT 5 127 

V RUB =0 



Own Storage; 



; Character code for 

; Character code for 

; Character code for 

; Character code Tor 

; Rubout sequence In 



carriage return 
line feed 
control-U 
rubout 
progress 



ZZ-ENKAZ-1,3 

ENKAZ01 

01-30 



K 2 
BOOSREAOPROMPT - Prompt and read input s U-JUN-1984 

CRD HARDCORE INSTRUCTION TESTS U-JUN-191 

. BOOSREADPROMPT - Prompt and read Input s U-JUN-191 



Fiche 1 
1^ 16:01:3 
14 15:5 



Frame K2 Sequence 25 

6 VAX-II Macro V03-0T .'"a 

3:29 0RBO:CBALL.ENKAZ.ENKAZ.13ENKAZ 



e 11 
1A.(4) 



OOOOOOOA 
00000008 

OOOOOOOC 



58 
52 



59 



04 AC 

0089 

08 AC 

6B 

57 69 
07 52 

50 OD 
65 
49 

50 |0 
F9 50 07 

58 21 
58 80 8f 
?r 8F 58 

IF 

02 54 00 
40 



0394 
00 
30 
DO 
13 
04 

9E 
F5 
9A 
lO 
11 



OEOO 
OEOO 
QEOO 
OEOO 
QEOO 
OEOO 
OEOO 
OEOO 
OEOO 
OEOO 
OEOO 

SI 

OEOO 
OEOO 
OEOO 
OEOO 
OEOO 

®l 

OEOO 
OEOO 
OcOO 
OEOO 
OEOO 
OEOO 
OEOO 
OEOO 
OEOO 
OEOO 
OEOO 
QEOO 
OEOO 
E< 
Ei 
El 
El 
El 

E06 
E09 
EOD 
EOF 
Ell 
E15 
E17 
E1A 
EID 
E20 




.SBTTl BOOSREADPROMPT - Prompt and read input string 



++ 



Functional Description: 

BOOSREADPROMPT outputs the specified ASCIZ prompt string on the 
console terminal then checks the count of characters to be read. 
If zero it exits, otherwise it reads the console terminal until 
either a carriage return is encountered or the character count 
is satisfied. The specified buffer is filled with an ASCIC 
string containing the characters read but not including the 
terminating carriage return. 

Calling Sequence: 

CALL6 ARGL I ST , BOOSREADPROMPT 



Input Parameters: 

PROMPT (AP) - 
PROMPT 3 4 



Address of ASCIZ prompt string 



SIZE(AP) 
SIZE 



BUF(AP) 
BUF 



= 8 



12 



- Maximum length of in^ut string 

Note: if size is zero, then nothing is read 
and only the prompt string is written, 

- Address of input buffer 



Output Parameters: 

RO - Completion status code (always SSS^NORMAL) 

Buffer located by BUF(AP) will be filled with the string 
read as an ASCIC string. 



.LIST 
BOOSREADPROMPT: 

.WORD 
5S: MOVL 
6SBW 
MOVL 
BEQL 
CLRL 
MOVL 
CLRB 
MOVAB 
SOBGTR 
MOVZBL 
BSdB 
6R6 
10$: MFPR 
BBC 
MFPR 
BIC8 
CMP8 
6NE0 
BBSS 
8SS3 



MEB 

*M<R2-R4,R7-R8,R9> 
PROMPT (AP),R8 
OUTZSTR 
S^|E(AP).R2 

R4 

BUF(AP},R9 

(R9) + 

(R9)-R7 

R2,10S 

#CR,R0 

OUTCHAR 

60S 

#PRS RXCS,RO 

#7.R0,10S 

#Pft$ RXDB,R8 

#*X8D,R8 

R8.#RUB0UT 

#V RUBiRA,20$ 

ouTbslsh 



Show macro expansions 



P^'int to prompt string 

And send it to the console 

Maximum number of characters to read 

Done if nothing to read 

Clear flags 

Set address of input buffer 

Initialize string count 

Remember start or buffer 

Decrement and test character count 

Set to send CR/LF 

Send CR 

End of read 

Get console status 

Walt for ready 

Get console character 

Strip parity 

Check for rubout 

No 

Set start of rubout sequence 

Output back slash 



ZZ-ENKAZ-1.3 

ENKAZ01 

01-30 



L 2 

BOO$READPRO«PT - Prompt and read input s U-.JUN-1984 .^^,^UH.K 

CRD HARDCORE IMSTRUCTION TESTS U-JUN-1W 16:01:3i 

BOOSREADPROMPT - Prompt and read input s U-JUN-1984 15:53:2' 



Frame L2 Seguence 2A 

. VAX-11 Macro V03-CT 

' DR80:CBALL.ENKAZ.f:?JICAZ.13ENKAZ 



Page 12 
AZ01A.(4) 



58 



52 



02 5A 
58 

03 58 
58 



89 
58 



50 



50 
59 

77 

50 



79 
08 
59 
08 AC 
D9 
37 
52 
D3 
00 
27 
15 
A6 
06 
20 

IF 
58 
OD 
87 
OA 
15 
57 
59 
59 
01 



5C 8F 

03 

50 58 



51 22 

r9 51 07 

23 5Ci 



50 



R8 
FA 

EE 
F7 



9A 
12 

11 

10 
07 
11 
E5 
10 
91 
13 
El 
8A 

10 
90 
91 
12 
9A 
10 
C2 
07 
90 
3C 
01 

9A 
11 
9A 

D8 
El 
DA 
05 

9A 
13 
10 
11 



OE55 
0E57 
CE5A 
0E5C 
0E60 
0E63 
0E63 
0E65 
0E68 
0E6B 
0E6:' 
0E70 
0E72 
0E75 
0E77 
0E7A 
0E7D 
0E7E 
0E7E 
0E82 
0E84 
0E87 
0E87 
0E8A 

0E92 
0E95 
0E95 
nE97 
o:99 
0E98 
0E98 



392 
393 
39A 
395 

397 
398 
399 
-iOO 
A01 
402 
<!.03 

A05 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 

A28 
429 
A 30 
431 
432 
433 



20$: 



30$: 



40$: 



50$: 



Movzei 

BNEQ 

INfL 

MOVL 

BRB 

BS86 

DECL 

BRB 

BBCC 

BSBB 

CMPB 

BEQL 

BBC 

BirB 



BSBB 
M0V8 
CMPB 
BNEQ 

60$: M0VZ8L 
BSBB 
SUBL 
DECL 
M0V8 

70$; MOVZWL 
RET 

OUTBSLSH: 

MOVZBL 
BRB 

0UTR8: MOVZBL 

OUTCHAR: 

MFPR 

BBC 

MTPR 

OUTEX: RS8 

OUTZSTR: 

MOVZBL 
BEQL 
BSBB 
BRB 



-(R9),R8 

30$ 

R9 

SIZE(AP), n2 

10$ 

oOtR8 

10$ 

#V RUB-R4.40$ 

ouTbslsh 

#C0NTR0L^U,R8 
5$ 

#6,R8,50$ 
#32, R8 

OUTRS 
R8,(R9)+ 
#CR,R8 
10$ 

*lf,ro 

OUTCHAR 

R7,R9 

R9 

#ss$_normal.ro 



#*AX\S:,R0 

OUTCHAR 

R8,R0 

#J'R$.TXCS,R1 
#7, RT, OUTCHAR 
R0,J»pA$„TXD8 



(R8)+,R0 
OUTEX 
OUTCHAR 
OUTZSTR 



Get rubbed out character 

Skip increment 

Point at start of buffer 

Restore size limit 

And get another character 

Output rubbed out character 

One less character 

And get another 

Terminate rubout sequence 

Output backslash 

Check for line cancel (control-U) 

Branch if so 

Branch if not alpha 

Set to upper case 

Echo character 

Buffer new character 

Is character a carriage return? 

No, 

Yes send line feed also 

Output character in RO 

Compute character count 

Remove carriage return 

and form counted string 

Return normal completion status 

Output back slash 

Set character code 

And output it 

Get character to output 

Output character in RO 

Get console transmitter status 

Wait for ready 

Send character to console 

Return 

Output ASCIZ string 

Get next character to output 

Branch if at end of string 

Send character 

Continue for all characters 



ifZ-ENKAZ-l.B 

EfJKAZOI 

01-30 



25 



u 2 

PR0MPT1 - Routine to prompt console for 14-JUN-1984 ^^ Fichel^ Frame M2 Seguence _ 

CRD HARDCORE INSTRUCTION TESTS 14-JUN-1984 16:Q1:36 VAX-11 Macro V03-0T ,,,„ ^^9?, ]} , 

PR0MPT1 - Routine to prompt console for 14-JUN-1984 15:53:29 DRB0:CBALL.ENKAZ.£NKA2.1]ENKAZ01A. (4) 

.S8TTL PR0MPT1 - Routine to prompt console for input 

Calling Sequence: 

BS8W PROMPT 1 

.ASCIZ /prompt string/ 

Ouput Parameters: 

C0M8UF - Filled with ASCJC strlna representing reply. 
Reply does not Include terminator. 









0E9B 


435 








0E9B 


436 








0E9B 


437 








0E9B 


438 








0E98 


439 








0E98 


440 








0E98 


441 








0E98 


442 








0E98 


443 








0E9B 


444 








0E9B 


445 








0E98 


446 


50 


6E 


DO 


0E9B 


447 


F638 


CF 


9F 


0E9E 


448 


7E 8': 


br 


9A 


0EA2 


449 




50 


DD 


0EA6 


450 


FF53 CF 


03 


FB 


0EA8 


451 


00 BE 0100 8F 


00 


3A 


DEAD 


452 


01 


A1 


17 


0EB4 
0EB7 
0EB7 
0E87 
0EB7 
0EB7 
0EB7 
0EB7 
0EB7 
0E87 
0E87 
0EB7 
0EB7 
0EB7 
0EB7 
0EB7 
0E87 
0EB7 
0EB7 
0E87 
0EB7 


453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
4/0 
471 
472 
473 


50 


81 


9A 


0E87 


474 




3C 


BB 


OEBA 


475 


53 f69E 


CF 


DO 


OEBC 


476 




7E 


7C 


0EC1 


477 




53 


DD 


0EC3 


478 


63 61 


50 


28 


0EC5 


479 




83 


94 


0EC9 


4^*0 


FF30 CF 


Oi 


FB 


0EC8 


4bi 




3C 


8A 


OEDO 


482 






05 


0ED2 

oed3 
oed! 

0ED3 
0ED3 
0ED3 


484 
485 
486 
487 

488 




C6 


10 


0ED3 


489 


?0 4f 45 48 54 20 20 20 20 


20 2^ 


2A 


0ED5 


490 


4r 54 20 3E 52 43 3C 20 45 


50 5^ 


> 54 


0EF1 





fiROMPTI: 



MOVL (SP),R0 

PUSHAB W*B00$6T,C0M8UF 

M0VZ6L #B00$C^CDMBUF SZ ,- ( SP) 

PUSHL RO 

CALLS tfS^W'SOOIREADPROMPT 

LOCC *0,#256,a(SP) 

JMP 1(R1) 



Get prompt string pointer 
Set buffer address 
and size for read. 
Set address of prompt string 
Prompt and read response 
Find end of str;..g 
and return 



.58TTL BOOSTYPE.ASCIC - Type a counted ASCII string 
+ ♦ 
Functional Description: 

This f iutlne accepts a string descriptor and types the message 
on thi console terminal 

Calling Sequence: 

8S8W BOO$TYPE^AbCIC 

Inputs: 

R1 = Address of ASCIC btring 

Outputs: 

ROfRI altered 

All other registers preserved 



BOOSTYPE ASCJC: 
R0VZ8L 
PUSHR 
MOVL 
CLRQ 
PUSHL 
M0VC3 
CLR6 
CALLS 
POPR 
RS8 



<R1)+,RC 

**M<R2.R3,R4,R5> 

W*B00$GL^FREEMEM,R3 

-(SP) 

R3 

R0i(Rl),(R3) 

(R3)* 

*3,W*B00$RF^^DPR0MPT 

#*M<R2,R3,R4,R5> 



RO = Size, Rl = Address of string 

Save registers 

Address of scratch storage 

No read for PROMPTREAD call 

Address of ASCIZ string 

Move the string to scratch storage 

and make it ASCIZ 

Type the nflng 

Recover saved registers 



THIS ROUTINE PRINTS THE MESSSAGE SHOWN AND WAliS FOR USER 
INTERVfcNnON ,<CR>, FOR PREPARATION ERRORS, 



Prompt mess: 

" 8588 
•ASCIZ /** 



PROMPT 1 ; NO. PROMPT TO SPIN 

THEN TYP: <CR> TO CONTINUE **/ 



Z2-ENKA7-1.3 
ENKAZOI 

01-30 



N 2 
U-JUN- 



98A 



BOO$TYPE ASCIC - Type d counted ASCII st 

CRD HARDCORE INSTRUCTION TESTS 

BOOSTYPE ASCiC - Type a counted ASCII st 14-JUN-198A 



U-JUN-l/iJ'i 



riche 1 Frame W2 



sequence ?6 
16:01:36 VAX-11 Macro 703-OT Page M 

15:53:29 DR80:CBALL.EUAZ.ENKAZ.1]ENKA201A. (A) 



!?A ?A 09 ^5 Sr^ 'iE A9 5A AE AF 43 ?0 

51 F5DC CF 

B6 

OOOOOOOO'EF 

00000000 'EF 00 



?0 


OEED 




00 


0EF9 




9E 


OEFA 


A91 


10 


OEFF 


A92 


9A 


0F01 


493 


Fe 


0F07 


49A 




OFOE 


495 



MOVAB BOOSGl COMBUF.Rl 

BS88 BOOITYPE ASCIC 

CLfte DS$G8^UDS50,INIT 

CALLS #0,UD.DRIVER1 



2Z-ENKA2-1,3 

ENKAZ01 

01-50 



PRINT ROUTINE 



51 
53 



52 



F9 
EE 



50 
50 
23 
51 



01 
64 
52 
6AA1 
22 
07 
52 
53 



CRD HARDCORE INSTRUCTION TESTS 
PRINT ROUTINE 



B h 
U-JUN-1984 

U-JUN-191 
U-JUN-19] 



Fiche 1 Frame 
14 16:01:36 VAX 



lA 15:53:29 



. .. 11 Macro V03-0T Pa 

rRBOiCBALL.ENKAZ.ENKAZ.lDENKAZ 



Sequence 

;-0i 



27 



e 15 

1A,<A) 



DO 
9A 
DA 
9A 
DB 
El 
DA 

r3 

05 



OFOE 
OFOE 

OFOE 
OFOE 
OFOE 
FOE 
FOE 
OFOE 
OF 11 
0F1A 
QF16 
0F1A 
OFID 
0F21 
0F2A 
OF 28 
OF 29 



497 

498 
A99 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
51A 
515 



.SBTTL PRINT ROUTINE 



■f -f 



FUNCTIONAL DESCRIPTION; 



THIS ROUTINE 
TERMINAL. 

f'RINT ROUTINE: 
MOVL 
MOVZBL 
CLRL 
10$: MOVZBL 
20$: MFPR 

esc 

MTPR 

AOSLEO 

RSB 



IS USED TO TRANSMH AN ASCIC MESSAGE TO THE CONSOLE 



#1-R1 

(RA),R3 

R2 

(RA) tRl],R2 

#TXCS,R0 

#7,R0,20$ 

R2,#TXDB 

R3,R1J0$ 



Initialize Index 

Get number of chara to print 

Clear character staffer 

Get a character 

Get tx status 

Transmitter ready? 

Print a character 

Print the whole message 

EXIT 



ENKA201 
01-50 



ERROR ROUTINE 



92 AF 
1E 



88 AF 
U 



FF7D CF 
09 



CRD SARDCORE INSTRUCTION TESTS 
ERROR ROUTINE 



C 3 
U-JUN-1984 FUhe 1 

H-JUN-198A 16:01:3 
14-JUN-1984 15:53:2 



Frame C3 Seguence 28 
VAX-11 Macro V03-0T Page 16 
DRB0:CBALL.ENKAZ.ENKA2.13ENKAZ0lA*('i) 



F313 CF 


OE 


08 AF 


16 


F525 CF 


DE 


00 AF 


16 


08 


n 


F521 CF 


OE 


C6 AF 


16 


F^Oe CF 


OE 


BE AF 


16 



12 F2D6 CF E8 
54 
54 

54 

15 F2B3 CF 
18 00000000* EF 

ID F2AB CF 

20 OOOOOOOO'EF 

29 

5^« F3E3 CF 

9C AF 

28 



E8 

E8 

E8 

E8 

11 

OE 
16 
11 



54 F3FE CF OE 



16 

11 



5-^ F39A CF OE 



16 
11 



5^ F383 CF DE 



16 
11 



OF 29 
OF 29 
OF 29 
OF 29 
OF 29 
OF 29 
OF 29 
0F29 
OF 29 
OF 29 
OF 29 
OF 29 
OF 29 
0F2E 
0F2E 
0F33 
OF 36 
0F3B 
0F3E 
0F40 

ons 

0F48 
0F48 
0F4D 
OF 50 
OF 50 
OF55 
OF 55 
0F5C 
0F5C 
0F61 
0F61 
OF 68 
OF 68 
0F6A 
0F6A 
6f6F 
OF 72 
0F7A 
OF 74 
OF 74 
OF 79 
OF 79 
0F7C 
OF 7E 
QF7E 
0F7E 
OF 8 



54 F508 CF OE 




517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

5A1 

542 

543 

544 

545 

546 

5/7 

548 
549 
550 
551 
552 
553 
554 
555 
556 
557 

558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 

572 

575 



.SBTTL ERROR ROUTINE 

; FUNCTIONAL DESCRIPTION: 

; THIS ROUTINE IS USED TO DISPLAY AN ERROR MESSAGE IN CASE OF CPU OR 

; LOAD PATH FAILURE OR WHEN WARNING MESSAGE WHEN NO CRD SUPPORTED 

; DISK CONTROLER IS FOUND. IT ALSO ABORTS AFTER ALL MESSAGES ARE PRINTED. 

; K4 = ADDRESS OF ASCII MESSAGE 



ERROR.ROUTINE;: 
BLBS 



MOVAL 
J SB 
MOVAL 
J SB 
BRB 
MOVAL 
J SB 



10$: 
20$: 



MOVAL 
J SB 

BLBS 

BLBS 

BLBS 

BLBS 



BRB 
NO-LOAD;; 

MOVAL 
J SB 
BRB 

DRIVE.NFND: 

MOVAL 

J SB 
BRB 

LOAD.BADi 

MOVAL 

J SB 
BRB 
DISK ERR: 

MOVAL 



CPUJRR: 



J SB 

BRB 



WHAT^MODEJ0$ 

PRINTFAIL,R4 
PRINT ROUTINE 
PRINTXUT0,R4 
PRINT ROUTINE 

20$ " 

PRINTMENU,R4 

PRINT.ROUTINE 

PRINTA80RT,R« 
PRINT.ROUTINE 

NOCNTLr?„FND,N0.LOAD 

N0DRIVEX1*[»RIVE^NFN0 

LOA0^ERR0R,L0AD^8AD 

BAO,DISK,DISKJRR 

CPU.ERR 

PRINTN0CNTLR,R4 
PRINT ROUTINE 
ERRJRD 

PRINTNODRIVEOUR^ 

PRINT ROUTINE 
ERRJRO 

PR1NTL0ADMCK,R4 

PRINT ROUTINE 
ERRJRO 

PRlNTDISKeRR,R4 

PRINT ROUTINE 
ERRjfJD 



DE ("ERMINE WHAT MODE 
AUTO OR MENU 

FAILED 
PRINT MESSAGE 

AUTO 
PRINT MESSAGE 

MENU 
PRINT MESSAGE 

FAILED 
PRINT MESSAGE 

IS THERE A CRD SUPPORTED 

CONTROLLER? 

IS THERE A CRD SUPPORTED 

DISK DRIVE OR 1? 

IS THERE A CRD SUPPORTED 

BAD STATUS FROM ONLINE COMMAND 

CPU ERROR 

NO CRD SUPPORTED CONTROLLER FOUND 
PRINT MESSAGE 



NO CRD SUPPORTED DISK DRIVE 
OR 1 FOUND 
PRINT MESSAGE 



UNEXPECTED MACHINE CHECK WHILE 
VERIFYING LOAD PATH 
PRINT MESSAGE 



UNEXPECTED MACHINE CHECK WHILE 
VERIFYING LOAD PATH 
PRINT MESSAGE 



MOVAL PRINTCPU,R4 



CPU BAD 



ZZ-ENKAZ-1.3 

ENKA201 

01-30 



ERROR ROUTINE 



CRD HARDCORE INSTRUCTION TESTS 
ERROR ROUTINE 





FF72 CF 


16 


0F98 
0F9C 
0F9C 


54 


F292 CF 


DE 


0F9C 




FF69 CF 


16 


0FA1 
0FA5 


5A 


F28E CF 


DE 


0FA5 




Fr60 CF 


16 


OFAA 
OFAE 


OB 


F251 CF 


E8 


OFAE 
0FB3 


5A 


F4A8 CF 


DE 


0F83 




FF52 CF 


16 


0F88 




09 


11 


OFBC 
OFBE 


5A 


F4A3 CF 


DE 


0F8E 




FF47 CF 


16 


0FC3 
0FC7 


54 


F2BA CF 


DE 


0FC7 




FF3E CF 


16 


OFCC 
OFDO 


54 


F2BF CF 


DE 


OFDO 




FF35 CF 


16 


0FD5 
0FD9 


00000174'EF 


16 


0FD9 






00 


OFDF 
OFEO 



574 

575 

576 ERRJND 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

b87 

588 

589 30$: 

590 

591 

592 40$: 

593 

594 

595 

596 

597 

598 
599 

600 



J SB 



MOVAL 
J SB 

MOVAL 
J SB 



D 3 

14-JUN-1984 

14-JUN' 
14-JUN' 

PRINT^ROUTINE 



PRINTFIELD,R4 
PRINT^ROUTINE 

PRINTEND,R4 
PRINT.ROUTINE 



BL8S WHAT.M0DE,30$ 

MOVAL PRINTAUT0,R4 

JS8 PRINT.ROUTINE 

BRB 40$ 

MOVAL PRINTMENU,R4 

JS8 PRINT^ROUTINE 

MOVAL PRINTTEND,R4 

JS8 PRINT.ROUTINE 

MOVAL PRINTRET,R4 

JS8 PR1NT_R0UTINE 

JS8 CLEAN.UP 
HALT 



Fiche 1 Frame D3 ^Seguence 29 

•1984 16:01:36 VAX-11 Macro V03-0T Page 1^ 

•1984 15:53:29 DRB0:CBALUENKA2.£NKA2_1]ENKAZ01A. <4) 

; PRINT MESSAGE 



CALL FIELD SERVICE 
PRINT MESSAGE 

END OF VAX-11/730 
PRINT MESSAGE 

DETERMINE WHAT MODE 
AUTO OR MENU 

AUTO 
PRINT MESSAGE 



MENU 
; PRINT MESSAGE 

TEST •* 
; PRINT MESSAGE 

; RETURNING TO CONSOLE PROMPT 
; PRINT MESSAGE 

; Go to Clean up rouHne 
; Halt the processor 



ZZ-ENKAZ-1.3 

ENKAZ01 

01-30 



RA60 PRINT ROUTINE 

CRD HARDCORE INSTRUCTION TESTS 
RA60 PRINT ROUTINE 



E 3 
U-'JUN-198A Fiche 1 Frame £3 

U-JUN-198'i 16:01:36 VAX-11 Macro 
14-JUN-1984 15:53:29 



Sequence? 30 
VO3-0T 



18 



Page 
DRB0:C8ALL.ENKAZ.ENKAZ.13ENKA2O1A,(4> 



5A 



5A 



48 
A3 



F21F 
F22E 
F235 
FF1B 
F220 
FACO 
FFOE 
F467 
FF05 



CF 
CF 
CF 
CF 
CF 
CF 
CF 
CF 
CF 



OB OOOOOOOO'EF 



5A 



54 



F4AI 
FEF 



CF 
CF 
09 
CF 
CF 
CF 
CF 



F490 

FEEA 

54 F4AD 

FEE1 

04 00000000 'EF 

c p r 1 re 

03 OOOOOOOO'EF 

EF8E' 

54 F36? CF 

FEC3 CF 

5*. F58C CF 

FEBA CF 



54 F463 CF 

FEAA CF 

09 

54 F452 CF 

FE9F CF 

54 F3E3 CF 

FE96 CF 

IB OOOOOOOO'EF 



54 
54 
54 



F2AD 
FE86 
F1A6 
FE7D 
F5C^ 
FE74 
FE35 



CF 
CF 
CF 
CF 
CF 
Cf 
CF 



E8 
E8 
DE 
16 
D6 
DE 
16 
DE 
16 
E9 
DE 
16 

n 

DE 
16 
DE 
16 
E9 
16 
E8 
31 
DE 
16 
DE 
16 



OB OOOOOOOO'EF £9 



DE 

16 

11 

DE 

16 

DE 

16 

E9 

DE 

16 

DE 

16 

DE 

16 

16 



OFEO 
OFEO 
OFEO 
OFEO 
OFEO 
OFEO 
OFEO 
OFEO 
OFEO 
OFEO 
OFFO 
0FE5 
OFEA 
OFEF 
0FF3 
OFF? 
OFFC 
1000 
1005 
1009 
1010 
1015 
1019 
1018 
1020 
1024 
1029 
102D 
1034 
1038 
103F 

1042 
1047 
1048 
1050 
1054 
1054 
1056 
1058 
1060 
1064 
1066 
1068 
l66F 
1074 
1078 
107F 
1084 
1088 
108D 
1091 
1096 
109A 
109E 



602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 

618 
619 
620 
621 
622 
623 
624 
625 

627 
628 
629 
630 
631 
632 
633 
634 
635 
63^ 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 

648 
649 
650 

651 

653 
654 

655 



.S8TTL RA60 PRINT ROUTINE 

; FUNCTIONAL DESCRIPTION: 

; This routine is used to display a 
; disk control Ler is found. It aiSO 
; SPINNING and CORRECT PACK LABEL. 



message when RA60 CRD 
CHECKS WHAT DRIVE AND 



supported 

IF THE DRIVE IS 



RA60 TEST:: 
BLBS 
BLBS 
MOVAL 
J SB 
INCL 
MOVAL 
J SB 
MOVAL 
J SB 
BL6C 
MOVAL 
J SB 
BR8 
MOVAL 
J SB 
MOVAL 
J SB 
BLBC 
J SB 
BLBS 
BRW 
MOVAL 
J SB 
MOVAL 
J SB 



10$ 
20$ 
30$ 
40$ 
50$ 



WHAT MODE, 30$ 
RA60;MESS.ST,30$ 
PRINTPASS.R4 
PRINT ROUTINE 
RA60 fleSS.ST 
PRINTRA60iR4 
PRINT ROUTINE 
PRINTPART,ft4 
PRINT ROUTINE 
WHAT BRIVEi10$ 
PRINTDJA1-R4 
PRINT^ROUTINE 

20$ 

PRINTDJAD,R4 
PRINT ROUTINE 
PRINTTeST,R4 
PRINT ROUTINE 
BAD DTSK,40$ 
ERROR ROUTINE 
SPIN BWN,50$ 
TEST*8 

PRINTPR0PER,R4 
PRINT ROUTINE 
PRINTRSPN6025,R4 
PRINT^ftOUTINE 



BLBC WHAT^DRIVE,60$ 

MOVAL PRINTDJA1,R4 

JSB PRINT.ROUTINE 

BRB 70$ 

60$: MOVAL PRINTDJAO.RA 

JSB PRINT ROUTINE 

70$: MOVAL PRINTSPNEND,R4 

JSB PRINT.ROUTINE 

BLBC HMBLK ERR, 80$ 

MOVAL PRINTBRVERR,R4 

JSB PRINT ROUTINE 

MOVAL PRINTFIELD.RA 

JSa PRINT ROUTINE 

MOVAL PRINTSPNEND,R4 

JSB PRINT ROUTINE 

80$: JSB PROMPT.MESS 



PRINT PASSED TO CPU PART 3 
PRINT MESSAGE 

PRINT MESSAGE 

RA60 

PRINT MESSAGE 

PART 1 

WHAT DRIVE? 

PRINT MESSAGE 

DJA1 

PRINT MESSAGE 

DJAO 

PRINT MESSAGE 

TESTING STARTED AND TIME 



IS IT SPININNING 

YES READ PACK LABEL 

PRINT MESSAGE 

PROPER SETUP REQUIRED 

PRINT MESSAGE 

CHECK CRDPACK AND SPINNING 



PRINT MESSAGE 
DJA1 

PRINT MESSAGE 

DJAO 

PRINT MESSAGE 

HOME BLOCK ERROR? 

PRINT MESSAGE 

IF SETUP CORRECT SUSPECT DRIVE ERR 

PRINT MESSAGE 

CALL FIELD SERVICE 

PRINT MESSAGE 

PROMPT FOR SETUP 



ZZ-ENKAZ-1.3 

ENKAZ01 

01-30 



RA80 AND RA81 



03 OOOOOOOO'EF 

EF58* 

A8 F157 CF 

A3 F16A CF 

54 F16D CF 

FE53 CF 

F15C CF 

OB OOOOOOOO'EF 



5A 



54 



F40A CF 

FE3F CF 

09 



F3F9 CF 

FE3A CF 
54 F38D CF 

FE28 CF 
54 F3CF CF 

FE22 CF 
54 F385 CF 

FE19 CF 
04 OOOOOOOO'EF 

rE29 CF 
OOOOOOOO'EF 

03 

EEF5* 

54 F29E CF 

FDFA CF 

54 F30F CF 

FDF1 CF 

FD8? CF 



PRINT ROUTINE 
CRD HARDCORI 
RA80 AND RA! 



109E 

109E 

l59E 

109E 

109E 

109E 

109E 

109E 

109E 

109E 

E9 109E 

31 10A5 

E8 10A8 

E8 10AD 

DE 1082 

16 1087 

D6 loee 

E9 lOBF 

10C6 

Dc 10C6 

^6 10C8 

11 10CF 
10D1 

DE 10D1 

•.6 I0D6 

DE 100A 

U) 10DF 

OE 10E3 

16 10E8 

DE 10EC 

16 10F1 

E9 10F5 

16 10FC 

95 1100 

12 1106 
31 1108 
DE 1108 
16 1110 
DE 1114 
16 1119 
16 111D 

1121 



INSTRUCTION TESTS 
11 PRINT ROUTINE 



F 3 

14-JUN-1984 

14-JUN''19] 
14-JUN'-191 



Fiche 1 Frame F3 Seguonce 31 
!4 16:6l:36 VAX-11 Macro V03-0T Page 19 
14 15:53:29 DRB0:CeALL.ENKAZ.EMKAZ.1.lENKAZO1A. (A) 



657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 

698 



.SBTTL fiA80 AND RA81 PRINT ROUTINE 
; FUNCTIONAL DESCRIPTION: 



This rcutfne Is used 
supported disk confi 
DRIVE AND IF THE D 



to display a mess 
uration is found, 
IVE IS SPINNING. 



ftA8081.T£ST:; 

BL8C WHAT^DRIVEJOS 

BRW INIT^DRVO 

10$; eieS WHAT MODE ,40$ 

BIBS RA8051 MESS^ST,40$ 

MOVAL PRINTPASSR? 

JS8 PRINT ROUTINE 

INCL RA808T MESS ST 

BLBC RA81_PRES,20$ 

MOVAl PRINTRA81iR4 

JS8 ^RINT.ROUTINE 

BRa 30$ 

20$: MOVAL PRINTRA80,R4 

JS8 PRINT ROUTINE 

30$: MOVAL PRINTPART,R4 

JS8 PRINT ROUTINE 

MOVAL PRINTPuAOiRA 

JS8 PRINT ROUTINE 

MOVAL PRINTTeST,R4 

JS8 PRINT ROUTINE 

40$: BL8C BAD DTSK,50$ 

JS8 EPROR ROUTINE 

50$: TST8 SPINjWN 

BNEQ 60$ 

BKW LESrUDA PARAM 

60$: MOVAL PRINTPR0PER,ft4 

JS8 PRINT ROUTINE 

MOVAL PRINTRSPN8081,R4 

JS8 PRINT ROUTINP 

JS8 PROMPT HESS 



age when AN RA80 OR RA81 CRD 
(in drive 0). Jt also CHECKS for 



IF DRIVE 1 
CHECK DRIVE 



PRINT PASSED 
PRINT MESSAGE 

RA81? 

IF THEN RA80 

PRINT MESSAGE 

RA81 

CONTINUE :0 PRINT MESSAGE 

TEST STARTED 

PRINT MESSAGE 

RA80 

PRINT MESSAGE 

PART 1 

PRINT MtSSAGE 

DUAO 

PRINT MESSAGE 

TESTING STARTED AND TIME 



IS IT SPININNIG 

YES BOOT SUPERVISOR PORTION 

PRINT MESSAGE 

PROPER SETUP REQUIRED 

PRTNT MESSAGE 

CHtCK THAT DUAO IS SPINNING 

PROMPT FOR SETUP 



t ^ 



ZZ-ENtcA2"1.3 

ENKAZOT 

01-30 



RC2. PRINT ROUTINE 

CRD HARDCORE INSTRUCTION TESTS 
RC25 PRINT ROUTINE 



G 3 

U-JUN-1984 

U-JUN-19J 
U-JUN-191 



Fiche 1 
lA 16:01:3 
14 15:53:2 



Frame 63 Sequence 32 

VAX-11 Macro V03-0T Pa 

DRB0:CBALL.ENKAZ.ENKAZ^1]£NKAZ 



e 20 
1A.(4) 



03 00000000' EF 

EED*^' 

36 F0D4 CF 

31 FOEb CF 

54 FOEA cr 

FDDO CF 

FODD CF 

54 F36'i CF 

FDC3 CF 

54 :?1C CF 

f08A CF 

54 F358 CF 

FDB1 CF 

54 F3U Cf 

FDA8 CF 

04 O00O0O00*EF 

FDB8 CF 
03 00000000' EF 
EE85' 
54 F22E CF 

F08A 

5A F2S3 

FD81 

54 F31F 

F078 

5 A F26C 

FD6F 

IB 00000000 



54 
54 

54 



F126 
FD5F 
F07F 

FD56 
F29A 
FD4D 
FDOf 



CF 
CF 
CF 
CF 
CF 
CF 
CF 
'£F 
CF 
CF 
CF 
CF 
CF 
CF 
CF 



E9 
31 
E8 
E8 
DE 
16 
D6 
DE 
16 
DE 

DE 
16 
Dt 
16 
E9 
16 
E8 
31 
DE 
16 
DE 
16 
DE 
16 
DE 
16 
E9 
DE 
16 
DE 
16 
DE 
16 
16 



1121 

1121 

1121 

1121 

1121 

1121 

1121 

1121 

1121 

1121 

1128 

112B 

1130 

1135 

113A 

113E 

1142 

1147 

114B 

1150 

1154 

1159 

115D 

1162 

1166 

116D 

1171 

1178 
1178 
1180 
1184 
1189 
118D 
1192 
1196 
1198 
119F 

11A6 
11AB 
11AF 
1164 
1188 
118D 
11C1 

nc5 



700 
701 

?8I 

701, 
705 
706 

III 

709 
710 
711 
712 
713 
7M* 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 



7; 

7; 

7i 

7; 

?[ 

731 

732 

733 

734 

735 

736 

737 

738 
739 
740 
741 
742 
743 
744 



.SBTTL RC25 PRINT ROUTINE 

;*+ 

; FUNCTJONAL DESCRIPTION: 



; This 


routine 


; disk 


OPTION 1 


; SPINNING and 


Rci5^TEST:: 


•1 


BLBC 




6RW 


10$: 


BL8S 




6LBS 




MOVAL 




J SB 




INCL 




MOVAL 




J SB 




MOVAL 




J SB 




MOVAL 




JS8 




MOVAL 




J SB 


20$: 


BLBC 




J SB 


30$: 


6LBS 




BRW 


40$: 


MOVAL 




J SB 




MOVAL 




J SB 




MOVAL 




J SB 




MOVAL 




J SB 




BLBC 




MOVAL 




J SB 




MOVAL 




J SB 




MOVAL 




J SB 


50$: 


J SB 



-Is used to display a mes 
s found. It also CHECKS 
for correct pack label. 



WHAT,DR1VEJ0$ 
INIT^DRVO 
WHAT3MODE,20S 
RC25;MESS.ST,20$ 
PRINTPASSiR4 
PRINT ROUTINE 
RC25 MESS.ST 
PRINTRC2S-R4 
PRINT ROUTINE 
PRINTPART.R4 
PRINT ROUTINE 
pRINTI5AA0,R4 
PF(INT ROUTINE 
PRINTTEST-R4 
PRINT ROUTINE 
BAD DISK, 30$ 
ERRi3R ROUTINE 
SPINjWN,40$ 
TEST 8 

PRINTPR0PER,R4 
PRINT ROUTINE 
PRINTRSPN6025,R4 
PRINT ROUTINE 
PRINTIJAA0,R4 

print routine 
printspnend^r*; 
print routine 
hmblk.errJoJ 

PRINTDRVERR,R4 
PRINT ROUTINE 
PRINTFIELDjR4 
PRINT fiOUriNE 
PRINTSPNEND,R4 
PRINT ROUTINE 
PROMPT.MESS 



sage when RC25 CRD supported 
for DRIVE 0, IF THE DRIVE IS 



IF DRIVE 1 
CHECK DRIVE 



PRINT PASSED 
PRINT MESSAGE 

PRINT MESSAGE 

RC25 

PRINT MESSAGE 

PART 1 

PRINT MESSAGE 

DUAO 

PRINT MESSAGE 

TESTING STARTED AND TIME 

DRIVE ERROR? 

IS IT SPININNIG 

YES READ PACK LABEL 

PRINT MESSAGE 

PROPER SETUP REQUIRED 

PRINT MESSAGE 

CHECK CRDPACK AND SPINNING 

PRINT MESSAGE 

DUAO 

PRINT MESSAGE 

HOME BLOCK ERROR? 
PRINT MESSAGE 

IF SETUP CORRECT SUSPECT DRIVE ERR 
PRINT MESSAGE 
CALL FIELD SERVICE 
PRINT MESSAGE 
** 

PROMPT FOR SETUP 



ZZ-ENKAZ-1.3 

ENKAZ01 

01-30 



f^C25 PRINT ROUTINE 

CRD HARDCORE INSTRUCTION TESTS 
RC25 PRINT ROUTINE 



H 3 

U-JUN-198A 

U-JUN-19] 
U-JUN-191 



FUhe 1 Frame H3 Seguence 33 

lA 16i01:36 VAX-11 Macro VC3-0T ?6 

t/. 15i53:29 0RBOjCBALL.£NKAZ.£NKAZ_13ENKAZ 



e 2^ 
lA.(^j) 



26 



FFFFFFFF 
5E 



F03A CF 006A 



F02F 
6E 

FOIF 
6E 



CF 
F0A5 

CF 
FD39 



8F 
8E 
8F 
11 
01 
CF 
OA 
01 
CF 



?6 
6E 



FFFFFFFF 8? 

5E 8E 

OOOOOOOO'EF 



^t 



FFFFFFFF 8F 

5£ 8E 

FFFO CF 01 

6E FOOE CF 



DA 
CO 
81 
18 
DO 
9E 
11 
DO 
9E 
02 



DA 
CO 
DE 

02 



DA 

9E 
02 



11C5 
11C5 
11C5 
11C5 
11C8 
11C8 
11C8 
11C8 
11C8 
11C8 
11C8 
11C8 
11C8 
11C8 
11CF 

11D2 
11D9 
11D8 
11E0 
nE5 
11E7 
11EC 
11F1 
IIF? 
IIF? 

^]n 

11FA 

UFA 

11F4 

UFA 
UFA 
UFA 

11FA 
11FA 

iiFe 

11FE 



lOF 



7A 

7A 

7A 

7A 

750 

751 

752 

753 

75A 

755 

756 

757 

758 
759 
760 
761 
762 
763 
76A 
765 

766 
767 

768 

^^ 

770 

771 
772 
771 
77i, 
77S 
776 
777 
778 
779 
780 
781 



,S8TTL EXCEPTION HANDLER ROUTINES 

•ALIGN LONG 

FUNCTIONAL DESCRIPTION: 

This routine Is used to handle all unexpected exceptions or 
urgent Interrupts (over priority "XM). The results of an 
unexpected exception or uraent Interrupt Is printing an error 
message pointing to the CPU and aborting CRD Auto or Menu mode. 



UNEX.E.I:: 

MTPR 
ADDL2 
CMPW 
BGEQ 
MOVL 
M0VA8 
BR6 
HOVL 
10$: M0VA8 
20$: RE I 



#-1-;(^PR$^MCESR 
(SP)+ SP 
*100,^ASS^C0UNT 
10$ 
*1,CPU.8AD 

ERROR Routine, (SP) 

20$ 

#1A0AD.ERR0R 
ERROR ROUTINE, (SP) 



; CLEAR REGISTER 

; ADJUST SP 

; TST U IN HARDCORE 

; OR LOAD PATH SECTION 

; PRINT ERROR 

; THEN ABORT 



•ALIGN 
;++ 

.' This 
; when 
; MACH 
; UDA5 



LONG 



J 

ACHK.IDC 



routine Is used to handle expected MACHINE CHECKS 
an IDC Is not round. The results of this expected 
NE CHECK Is to continue and look for a LESI or 
controller on the UNI8US. 



MTPR 

ADDL2 

MOVAL 

REI 

LONG 



#-.1,#PR$ MCESR 

(SP5+,SP 

UDA,LESI,(SP) 



CLEAR REGISTER 
ADJUST SP 
CONTINUE TO 
SIZE 



.ALIGN 
+ + 

This routine 1? used to handle expected MACHINE CHECKS 
when a LESI or UDA50 Is not found. The results of this expected 
MACHINE CHECK Is to print a warning message due to the lack of 
a supported disk load device and then abort. 

ftCHK.L£S„UDA:: 
ffiJPR 
ADDL2 
MOVL 
M0VA8 



#*1,#PR$ MCESR 
(SP)+tSP 
#1,N0CNTLR^FND 
ERR0R.R0UT!NE,(SP) 



REI 



CLEAR REGISTER 
ADJUST SP 

PRINT WARNING 
THEN ABORT 



.ALIGN LONG 



; AA 



Z2"EN<A2-1.3 

ENKAZ01 
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EXCEPTION HANDLER ROUTINES 

CRD HARDCORE INSTRUCTION TESTS 
EXCEPTION HANDLER ROUTINES 



U-JUN-1984 Fiche 1 
U-JUN-198A 16:Q1:3( 
U-JUN-198A 15:53:2' 



Frame 13 Seguence V^ 

. VAX-11 Macro V03-0T Page 22 

» OR80:CBALL*£NKAZ.£NKA2^13£NKAZ01A.(6) 



58 00 
EfD8 CF 55 



5E 
5E 
51 



50 



F9D0 CF 
0^ 5E 

F7C8 CF 
00 5E 

F3CA CF 

11 51 

53 01 
82 AF 



F5 53 



81 60 
000000?F 8F 

1? 18 

00 

0000125E'EF 



DA 
DO 

DE 
DA 

DE 
DA 

DE 
DA 

DO 

DE 

DE 

F3 

DA 
DD 
DF 

?? 



1220 



ll3D 



102 

13 

i 

809 
810 
811 
812 
§^3 
8U 
815 
816 
817 
618 
819 

822 
823 
824 
825 
826 
827 
828 
829 
830 
831 

836 
837 



.S8TTL INITIALIZATION ROUTINE 



FUNCTIONAL DESCRIPTION: 

This routine 1nft1aU?es the stack pointer, turns off 

memory management and the stack pointers are invoUed, 

This routine also sets up the SCB buffer to refer ro an unexpected 

exception and urgent Interrupt routine, moues to the 

KERNEL stack and sets the IPL level to *X18. 

Assumptions: 

1) Init was performed in the Console mode prior to 
running this program. 



INini MTPR 
MOVL 

MOVAL 
MTPR 

MOVAL 
MTPR 

MOVAL 

MTPR 

MOVL 
MOVAL 

10$: MOVAL 
A08LEQ 

MTPR 

PUSHL 

PUSHAL 
RE I 
20$: BR8 



Therefore 



MODE = KERNEL MODE 

IPL = 31 

STACK s INTERRUPT STACK 



#0,#PR$„MAPEN 

r5,what^m0de 

top of.istack,sp 
sp,»prS.isp 

top of kstack^sp 

5P,SPR|.KSP 

SCB,R1 

R1,*PR$„SCBe 

#1-R3 
UNfX^E^URO 

(R0),(R1) + 
M127,R3J0$ 

#'^X18,/«fPR$.IPL 

ifO 

20$ 

TEST_1 



; Turn off memory management 

; AUTO OR MENU/ R5 PASSED FROM 

; CRABOO.CMD AND CR^^OO.CMD 

; SP Points to the top of stock 

; Load the ISP 

; SP Points to the top of stack 

; Load the KSP with the top of stack 

; SET UP SYSTEM CONfROL 

; BUFFER BASE ADDRESS 

; Load BASE System Control Block 

; address 

; Initialize counter 

; Load UNEXPECTED EXCEPTION or 

; URGENT INTERRUPT address. 

; Load the SCB with trap catchers 

; Continue until the SCB is full 

; lower IPL to *X18 (Urgent Interrupts) 

; Push zero on PSL to cnange to 

; KERNEL STACK 

; Push next Address on Stack 

; Pop the Stack 

; Start test 



ZZ-EM<AZ-1.3 

ENKAZ01 

01-50 



INITIALIZATION ROUTINE 

CRD HARDCORE INSTRUCTION TESTS 
INITIALIZATION ROUTINE 



35 



J 3 
U-JUN-198'i FKhe 1 Frame J3 Seguence 

U-JUN-198^. 16:01:36 VAX-11 Ma>cro V03-0T P? je .^3 

U-JUN-1984 15:53:^9 DRB0:CBALL.ENKAZ.ENKAZ.13ENKA».01A. (7) 



EA 



50 FFFFFFFF 8F 

51 

50 

52 51 50 

06 

00000F29'Ef 

51 0000007F 8F 
50 00000080 8F 

52 51 50 

06 

0Q000F39'EF 



£A 



50 FFt-FFFFF tfF 

51 

50 

5? 51 50 

06 

00000F29'EF 

51 00000080 8F 
50 00000080 SF 

52 51 50 

06 

00000F29'FF 



00000000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0990 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



DO 
D^ 
D6 
CD 
13 
17 
F3 
DO 
CD 
13 
17 



DO 
D4 
D6 
CD 
13 
17 

y2 

DO 
CD 
13 
17 



0009 
OOOB 

0017 
001 F 
0026 
002A 
002C 
0032 
0032 
0032 
0032 
0032 
0032 
0039 
003B 
003D 
0041 
00A3 
0049 
0051 
0C58 
005C 
005E 
0064 
0064 



858 
859 
860 
861 

864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 



.PSECT A_HAftDC0ftE, BYTE, PIC 
.S8TTL TEST 1: A08LEQ, AOBLSS Test 



* + 



Test desjrlption! 



In this test, the A08LEQ and AOBLSS instructions are functionally 
verified. 



Assumptions: 



START: 

TEST.1; 

;++ 

; Subtest 1: AOBLEQ 

tl 51: 

MOVL 

CLRL 
10$: INCL 

X0RL3 

BEOL 

JMP 
20$: AOBLEQ 

MOVL 

X0RL3 

6EQL 

JMP 
30$: 
;+ + 
; Subtest 2; AOBLSS 



#-1,R0 

R1 

RO 

20i 

ERftQR.ROUTINE 
#127,R1J0$ 
#128,R0 

ERROR.ROUTINE 



T1^32: 
10$: 



MOVL 

CLRL 

INCL 

X0RL3 

BEQL 

JMP 
20$: AOBLSS 

MOVL 

X0RL3 

BEQL 

JMP 
30$: 
;«*«*» [nd of test ***** 



#-1,R0 

Rl 

RO 

F}0,R1,R2 

20i 

ERROR ROUTINE 

#12LR1J0$ 

#12LrO 

R0,R1,R2 

30i 

ERftOR.ROUTINE 



Initialize counter 
Initialize index 
Bump counter 
Counter « index? 
Branch if so 
Else, report the error 
Do the AOBLEQ 
Expect Index » 128 
Is index s 128? 
Branch if so 
Else, report the error 
End of subtest 



Initialize counter 
Initialize index 
Bump counter 
Counter « index? 
Branch if so 
Elsey report the error 
Do tne AOBLSS 
Expect index « 128 
Is index « 128? 
Branch if so 
Else , report the error 
End of subtest 



ENKAZOl 
01-30 



TEST 2: SOBGEQ, SOBGTR Test 

CRD HARDCORE INSTRUCTION TESTS 
TEST 2: SOBGEQ, SOBGFR Test 



K 3 

U-JUN-198A Fkhe 1 

U-JUN-1984 16:01 :j 
U-JUN-I98<i 15:53:2 



Frame K3 Sequence 36 

I VAX-11 Macro V05-0f f'a 

► DR80:CBALL.ENKAZ.ENfCAZ^13ENKAZ 



e 24 
1A,(8) 



50 
51 



00000128 8F 

00000127 8F 

50 

52 51 50 

06 

00000F29*EF 

EF 51 

50 

52 51 50 

06 

00000F29'EF 



50 
51 



00000128 8F 

0000012? 8F 

50 

52 51 50 

06 

OO0O0F29'EF 

EF 51 

50 

52 51 50 

06 

00000F29'EF 



DO 
DO 
D7 
CD 
13 
17 
F*. 
D7 
CD 
13 
17 



DO 
DO 
D7 

CD 
13 
17 

f5 
D7 
CD 
:3 
\7 



0064 
006*. 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 

006^; 

0064 

0064 

0068 

0072 

0074 

0078 

007A 

0080 

0083 

0085 

0089 

0086 

0091 

0091 

0091 

009: 

0091 

0091 

0098 

009F 

OOAl 

00A5 

00A7 

OOAD 

OOBO 

0082 

0066 

00B8 

OOBE 

OOBE 



908 
909 
910 
911 

9li 
913 
914 
915 
916 
917 

918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 

932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 



.SBTTL TEST 2: SOBGEQ, SOBGTR Test 



+ fr 



Test description: 



In thi's iest the Instructions 
verified. 



SOBGEQ and SOBGTR a^^e functionally 



Assumptions: 
Test 1 
TESTJ: 
; Subtest 1: SOBGEQ 

tilsii 

10$: 



MOVL 
MOVI. 
DECL 
X0RL3 
6EQL 
JMP 
20$: SOBGCO 
DECL 
X0RL3 
SEQL 
JMP 

30$: 

;** 

; Subtest 2: SOBGTR 



i|f*Xl28,R0 

#*X127,R1 

RO 

R0-R1,R2 

20i 

ERROR ROUTINE 

RIJOJ 

RO 

r6,R1,R2 

ERROR.ROUTJNE 



tils?: 
10$: 



*'^X128,R0 

,127, 
RO 



jr*x 



.Rl 



MOVL 

MOVL 

DECL 

X0RL3 R0.R1,R2 

6EQL 20$ 

JMP ERROR.ROUTJNE 
20$: SOBGTR RIJO! 

DECL RO 

X0RL3 R0,R1,R2 

BEQL 30$ 

JMP ERROR^ROUriNE 
30$: 
;***** End of test ***»» 



JnltlaMze reference counter 

?ni:iaU2e Index operand 

Decrement reference counter 

Js RO s R1? 

Branch 1f so 

Else, report the error 

Should branch till R1 = -1 

Decrement reference counter 

Is RO » R1? 

Exit If so 

Else, report the error 

End of subtest 



Initialize counter 

Initialize Index operand 

Decrement counter 

Is R1 = RO? 

Branch If so 

Else* report the error 

Should branch until R1-0 

Expect Rl = 

Is R1 » 0? 

Exit If zero 

Else, report the error 

End of subtest 



ZZ-ENKAZ-1.3 
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TEST 3: BBS, 



BBC Test 

CRO HARDCORE 
TEST 3: BBS, 



INSTRUCTION TESTS 
BBC Test 



L 3 . ^ 

1A-JUN-198A Fiche 1 
U-JUN-198A 16:01:3 
U-JUN-1984 15:53:2 



Frame l3 Sequence 37 
VAX-n Macro VC3~0T Pa 
DRB0:CBALL.ENKAZ.ENKAZ.1]ENKAZ 



e 25 
1A.(9) 



50 D^ 

51 \>^ 
52 FFFrFFFF 8F DO 

OA 51 50 EO 

06 51 50 El 

O00OOF29"EF 17 

04 52 50 £1 

06 52 50 EO 

00000F29'EF 17 

EO 50 IF n 



OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOBE 
OOCO 
00C2 
00C9 
OOCu 
00D1 
00D7 
00D8 
OODF 
00E5 
00E9 
00E9 



954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

975 

974 

975 

976 

977 

978 

979 

980 



+ + 



.SBTTL TEST 3: BBS, BBC Test 
Test descrption: 

In thi's test/ the Instructions 
Assumptions: 

Test 1-Test 2 

; Subtest 1: BBS, BBC 

trsi: 

CLRL RO 

CLRL R1 

MOVL *"1,R2 

10$: BBS R0,R1,20$ 

BBC RO,R1,30$ 

20$: JMP ERROR^ROUTINE 

30$: BBC R0,R2,40$ 

BBS R0,R2,50$ 

40$: JMP ERROR ROUTINE 

50$: A08LEQ #31,RDJ0$ 

;****t End of test ***** 



BBC and BBS are functionally verified, 



Initialize ^'ndex 

Inltialiire operand 

Initialize operand 

Should not branch 

Should branch 

Else, report the error 

Should not branch 

Should branch 

Else, report the error 

Do for all 32 bit positions 

End of subtest 



ZZ-ENKAZ-1,3 
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TEST A: BBSS, BBCS Test 

CRD HARDCORE INSTRUCTION TESTS 
TEST A: BBSS, BBCS Test 
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53 

54 

OA 5A 53 

06 5A 53 

00000F29'EF 

EE 53 IF 



53 

5A 

06 5A 53 

00000F29'EF 

03 5A 53 

0006 

0000CF29'EF 

E5 53 IF 



DA 
DA 
E2 
E2 
17 
F3 



DA 
DA 
E3 
17 

E3 

31 
17 

F3 



00F9 

00E9 

O0E9 

00E9 

00E9 

00fc9 

00E9 

00E9 

00E9 

00E9 

00E9 

00E9 

00E9 

00E9 

00E9 

00E9 

00E9 

OOEB 

OOED 

00F1 

OOF 5 

00F8 

OOFF 

OOFF 

OOFF 

OOFF 

OOFF 

OOFF 

0101 

0103 

0107 

010D 

0111 

011A 

011A 

011E 

011E 



982 

983 

98A 

985 

936 

987 

988 

989 

990 

991 

992 

993 

99A 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

100A 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

101A 

1015 

1016 

1017 

1018 



.S8TTL TEST A: BBSS, BBCS Test 



++ 



Test descriofion: 

In this test, the insf^uctions BBSS and BBCS are functionally 
verified. 

Assumptions: 

Test 1-Test 3 



TEST A: 

;++ 

; Subtest 1: 



BBSS 



TA.S1: 

10$: 

20$: 
30$: 

; Subtest 2: BBCS 
tA"s2: 



CLRL R3 

CLRL RA 

BBSS R3,RA,20$ 

BBSS R3,RA,30$ 

JMP ERROR ROUTINE 

AOBLEQ #3nR3,10$ 





CLRL 




CLRL 


10S: 


BBCS 




JMP 


20$: 


BBCS 




BRW 


30$: 


JMP 


A0$: 


AOBLEQ 



R3 

RA 

R3,RA,20$ 

ERROR ROUTINE 

R3.RA,30$ 

A0$ 

ERROR ROUTINE 

#3'i,R?,10$ 



;**•»* End of test ***** 



Initialize position operand 

Initialize test operand 

Should not branch 

Should branch 

Else, report the error 

Do until all 32 bits are set 

End of subtest 



Initialize position operand 

Initialize test operand 

Should branch 

Else- report the error 

Should not branch 

Branch If okay 

Else, report the error 

Do until all 32 are set 

End of subtest 



2Z-ENKA2-1.3 

ENKAZ01 
CI "50 



TEST 5: BlBS, 9LBC Test 

CRD HARDCORE INSTRUCTION TESTS 
TEST 5: BLBS, BLOC Test 
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50 D-!. 

51 D4 
52 01 DO 

53 FFFFFFFE 8F DO 

03 50 E8 

06 50 E9 

00000F29'EF 17 

03 52 E9 

06 Vi E8 

000O0F29'EF 17 

03 53 E8 

06 53 E9 

00000F29'EF 17 



011E 

011E 

011E 

OIIE 

011E 

011E 

011E 

011E 

011E 

011E 

011E 

011E 

011E 

011E 

011E 

011E 

0120 

0122 

0125 

012C 

012F 

0152 

0138 

0138 

01 3E 

OHA 

0H7 

OUA 

0150 

0150 



1020 
1021 
1022 
1023 
102A 
1025 
1026 
1027 

1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1043 
1046 
104; 
1048 
104^ 



+ + 



.SBTTL TEST 5: 8L8S, BL8C Test 
Test descn'ptioti: 

In this test the instructions BL8S and 8LBC are functionally verified 
Assumptions: 

Test 1-Test 5 

TESTES: 
+ + 
Subtest 1: BLBS, BL8C 



T5_S1: 



CLRL 

CLRL 

MOVL 

NCVL 

BLfaS 

BL8C 

JMP 

818C 

BL8S 

JMP 

BL8S 

BL8C 

JMP 



1US: 
20$: 

30$: 
40$: 

50$: 
60$: 
:***** End of test ***** 



RO 

R1 

n\Ml 

^-2-R3 

ROjO$ 

R0,20$ 

ERROR ROUTINE 

R2,30f 

R2,40$ 

ERROR ROUTINE 

R3,505 

R3,60$ 

ERROR ROUTINE 



Ini- ialiee test operv"\nd 

Inivialize test operand 

Ihitialize test operand 

Initialize test operand 

Should not branch 

Should oranch 

Else, report the error 

Should not branch 

Should branch 

Else, report the error 

Should not branch 

Should branch 

Else, report the error 

End of subtest 



ZZ-ENKAZ-1.3 

ENKAZOl 

01-30 



Diagnostic Subroutines 

CRD HARDCORE INSTRUCTION TESTS 
Diagnostic Subroutines 



U-JUN-198A Fiche 1 
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Frawe BA Sequence AO 
VAX-n Macro VOS-OI Pit 
0RB0!CBALL*ENKAZ.ENKA2^13ENKAZ 



e 28 
1A(12) 



50 00O00213»Ef 



000001 74 'EF 

0000021 3 'EF 

0000006A 8F 

51 

51 

03 

FE90 

FE8C CF 



16 
D6 
78 

D5 
12 
31 
17 



12 IF 



DA 
05 



0150 
0150 
0150 
0150 
0150 
0150 
0150 
0150 
0150 
0156 
015C 
0168 
0169 
01 6B 
016D 
0170 
0174 
0174 
0174 
0174 
0174 
0174 
0177 
0178 
0178 



1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 

1060 
1061 



.S8TTL Diagnostic Subroutines 

;++ 

; Endpass 

; Hero is the endpass routine, 
* 

END.PASS: 

JS8 CLEAN UP 

iNCL PASS Count 

EDIV #100,PASS.C0UNT,R0,R1 



10$: 



20$: 



++ 



TSTL 
BNEQ 
BRW 
JMP 



1062 
1063 
1064 
1065 
1066 
1067 
1068 

1069 ; — 

1070 CLEAN-UP: 

1071 MTPR 

1072 RSB 
1073 

1074 .END 



R1 
20$ 

TEST 6 
START 



CLEANUP THE CPU 

Bump the pass count once 

GET NUMBER OF 100 PASSES 

DONE 100 PASSES? 
BRANCH IF NO 



Cleanup 



* «•• 



#31,/riPL 



SET IPL 
RETURN 



TO 31 



ZZ-ENKAZ-1.3 
ENKAZ01 
Symbol table 

BAD DISK 
BOOfC COMBUrSZ 
BOOSGL FREEMEN 

BOOICrCOMBUF 

BOCSREADPROMPT 

BOOSTYPE ASCIC 

BUF 

CLEAN UP 

CONTROL U 

CPU BAD 

CPU ERR 

CR " 

DISK ERR 

DRIVE.NFND 

DS$GB UDA50 INIT 

END PSSS 

ERROR ROUTINE 

ERR ERD 

hmbCk err 

IDC C5R 
INITI 
INIT DRVO 
INTERRUPT STACK 
IPL 

kernel stack 
leslu!5a_param 

LF 

LOAD^BAD 
LOAD ERROR 
MCHK IDC 

mchk,l£s_uda 
mckaCd 
nocntlr fnd 

NODRIVE'0,1 
NO-LOAD 

ouTbslsh 

OUTCHAR 

OUTEX 

0UTR8 

OUTZSTR 

PASS^COUNT 

pr$,Tpl 

PR$^ISP 

PRS^KSP 

PR$ MAPEN 

PR$ MCESR 

PRIIRXCS 

PR$ RXDB 

PRI.SCBB 

PR$ITXCS 

PR$;^TXOB 

PR I R REV 

PRINT ABORT 

PRINTAUTO 

PRINTCPU 

PRINTOAAO 

PRINTDISKERR 



Symbol table 



CRD HARDCORE INSTRUCTION TESTS 



C 4 
1A-JUN-198A 



Fkhe 1 Frame C4 Sequence 41 

■JUN-1984 16:01:36 VAX-11 Macro V03-0T Page 29 

■JUN-1984 15:53:29 DRBO:CBALL.£NKAZ.£NKA2.1:JENKA201A(12) 



•«****** X 01 



00QQ0Q84 
O0Q0Q5SE 
000004DA 
OOOOOEOO 
000QOE87 
OOOOOOOC 
000001 7A 
00000015 
0000020F 
00000F93 
OOOOOOOD 
00000F88 
O0OOOF74 
****««** 

00000150 
00000F29 

O0OOOF9C 

******** 

OOF 26200 

00001220 
******** 

OOOOOAOO 
00000012 
00000800 

******** 

OOOOOOOA 
O0OOOF7E 
0000020B 
000011F* 
00001208 
OOOOOOOA 
00000207 

******** 

00000F6A 
00000E7E 
00O0OE87 
00000E91 
00000E8A 
O00OOE92 

mm 

00000004 
00000000 
00000038 
00000026 

00000021 

«r" 

0000., ,_ 
00000001 
00000257 
00000A5F 
0000Q49F 
000O0A8O 
0000030F 



R 
R 

RG 
R 

R 

R 
R 

R 
R 

R ' 
RG 
R 



R 

rg' 



01 
01 
01 
01 

03 

01 
01 

01 
01 
01 
03 
01 
01 
01 

01 
01 
01 



RG 


01 


X 


01 


R 


01 


R 


01 


RG 


01 


RG 


01 


RG 


01 


X 


01 


RG 


01 


R 


01 


R 


01 


R 


01 


R 


01 


R 


01 


R 


01 



R 
R 
R 
R 
R 



01 
01 
01 
01 
01 



PRINTDJAO 

PRINTDJA1 

PRINTDRVGRR 

PRINTDUAO 

PRINTEND 

PRJNTFAIL 

PRINTFIELD 

PRINTLOAOMCK 

PRINTMENU 

PRINTNOCNTLR 

PRINTNODRIVE01 

PRJNTNSPN6025 

PRINTNSPN8081 

PRINTPART 

PRINTPASS 

PRINTPROPER 

PRJNTRA60 

PRINTRA80 

PR1NTRA81 

PRJNTRC25 

PRINTRET 

PRiNTSPNENO 

PRJNTTEND 

PRINTTEST 

PRINT.ROUTINE 

PROMPT 

PROMPT 1 

PROMPT MESS 

RA6Q^MESS^ST 

RA60ITEST 

RASQBl^MESS^ST 

RASOerTEST" 

RA81 PffE? 

RC25;MESS.ST 

RC25"TEST 

RP8.8UFF 

RueOuT 
see 
sceo 
sce20 

SC82A 
SC84 

?ce60 
sce6A 

SC88 
SEC REV 
SIZE 

SPIN DWN 
SSOORMAL 
START 

T1.S1 
Ti:S2 
TJISI 
T2:S2 

T3;si 

TA^SI 

ta:s2 




0000046C R 
000004C2 R 
I2D0 R 
)4B6 R 
167 R 
10000^45 R 
00000232 R 
0000031 C R 
00000465 R 
00000351 R 
00000376 R 
0000Q3DB R 
0000042? R 
e000046B 
00000223 
OO0003AD 



00C0g4C8 
000004CE R 
00Q004D4 R 
000004AA R 
00000293 R 
00000456 R 
00000285 R 
00000475 R 
OOOOQFOE R 
00000004 
00000E98 R 
OO000ED3 R 
QQ00Q217 R 
OOOOOFEO RG 
0000021B R 

00001 09E RG 
******** 

00QQ021F 




01 
01 

?! 

01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

01 
01 

SI 

01 

?1 

01 

?] 

01 
01 
01 

I] 

01 
01 
01 
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table 




ENKA201 


CRD HARDCORE INSTRUCTION 


Symbol table 






T5 SI 


000001 IE R 


05 


teJt 1 


00000000 R 


03 


TEST 2 


00000064 ft 


03 


TEST~3 


OOOOOOBE R 


Oi 


TEST^A 


000000E9 R 


03 


TESTES 


00000 HE R 


03 


TEST^6 


ilr«1t«*4«r* X 


03 


TESTIS 


ftA**(t*fttt X 


01 


TOP Of ISTACK 


000008FC RG 


01 


TOP"0F~KSTACK 


000009FC RG 


01 


TXC5 ~ 


= 00000022 




TXOB 


= 00000023 




UDA LESI 


ft*««ik*** X 


01 


UDAAESI CSft 


= A0FFFA68 G 




uD BRive'51 


tt*it*it«ft* X 


01 


unEx E I 


00001 1C8 RG 


01 


V RU5 " 


= 00000000 




wRat Of^lVF 


ft******* X 


01 


WHAT^MOOr 


00000203 RG 


01 



PS\C1 .^a.Tj 
. Ab'- . 

A J^'Mi 

A HAR.^rORfc 



D 4 
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Sequence A2 
V03-0T 



';o 



DRB0:EBAUL.ENKA2,£NKAZ^13ENKAZ01A(12) 



Allocation 

oooooooo"'( 

00001260 ( 
00000000 ( 
00000178 ( 



I Psect synopsis ! 

PSECT No. Attributes 

0.) 00 ( 0.) NOPIC USR 

A70A,) 01 ( 1.) PIC USR 

0.) 02 ( 2.) NOPIC USR 

376.) 03 ( 3.) PIC USR 



CON 
CON 
CON 
CON 



A6S 
REL 
ABS 
REL 



LCL NOSHR 

LCL NOSHR 

LCL NOSHR 

LCL NOSHR 



NOEXE 
EXE 
EXE 
EXE 



NORD 
RD 
RD 
RD 



NOWRT 
WRT 
WRT 
WRT 



NOVEC BYTE 
NOVEC PACE 
NOVEC BYTE 
NOVEC BYTE 



Zr-ENKAZ-l.i! Cross 


reference 






14' 


E 4 
•JUN-1984 


Fuhe 


1 Frame 


E4 


Segcj 
"0 V03-0T 


ence 43 


rNKAZOI 


CRD HARDCORE 


INSTRUCTION 


TESTS 




14-JUN-1984 16:01 


:36 VAX- 


-11 Mac 


Page 31 
A2.1j£NKAZ01A(12) 


Crobs reference 

1 

SYMSOL 


VALUE 










14-JUN-1984 15:53 

* 


:29 DRB0:CBALL 


.ENKAZ.ENK 


1 Sym 


bol Cross Reference 1 




DEfJNITJON 


REFERENCES.. 




BAD DISK 


00000000-XR 






jSf-548 


(4) 


" #-629 


(4) 


#-688 


(4) 


#-724 


(4) 


Bnufr coMBufsz 


=00000084 
0000055E-R 


219 


(4) 


#-449 


(4) 














BOOboC TREEMEM 


259 


(4) 


tf-476 


(4) 














6D0$GT"C0MBUF 


000004DA-R 


258 


(4) 


448 


(4) 


491 


(4) 










BC^JRE^DPftOMPT 


OOOOOEOO-R 


370 


(4) 


451 


(4) 


481 


(4) 










BOOtiYPE ASCK 


00000E87-R 
=:O0OO00OC 


473 


(4) 


#-492 


(4) 














CUf 


360 


(4) 


#-377 


(4) 














CLEAN UP 


000001 74 -R 


1070 


(12) 


1059 


(12) 


598 


(4) 










contnCl U 


=0000001 5 


327 


(4) 


#-402 


(4) 












" 


CPU BAD 


0000020F-R 


223 


(4) 


#-763 


(4) 














CPU"EfiR 


00000F93*R 


572 


(4) 


tf-'SSO 


(4) 














Cft " 


=00000000 


325 


(4) 


#-381 


(4) 


#-409 


(4) 










DISK ERR 


00000F88-R 


567 


(4) 


#-548 


(4) 














DRlVf N^ND 


00OO0F74-fi 


556 


(4) 


#-544 


(4) 














DS$GB UDASO.INIT 


00000000-XR 






#-493 


(4) 














END P^SS 


000001 50-R 


1058 


(12) 


















trvRfiR^ROUTlNE 


O0OO0F29-R 


528 


(4) 


1002 


(10) 


1012 


(10) 


lOlD 


(10) 


1041 


(11) 










1044 


(11) 


1047 


(11) 


630 


(4) 


689 


(4) 










725 


(4) 


764 


(4) 


767 


(4) 


796 


(4) 










883 


(7) 


888 


(7) 


899 


(7) 


904 


(7) 










929 


(8) 


934 


(8) 


945 


(8) 


950 


(8) 










974 


(9) 


977 


(9) 










ERR FND 


00000F9C-R 


576 


(4) 


#-554 


(4) 


#-560 


(4) 


#-566 


(4) 


#-571 


(4) 


W^IBL*; FRR 


00000000-XR 






#-647 


(4) 


#-736 


(4) 










UK (If^ 


=00F 26200 


217 


(4) 


















IMT1 


00001 220-R 


827 


(6) 


#-204 


(4) 














JNjT i)RvO 


OOOOOOOO-XR 






#-668 


(4) 


#-710 


(4) 










i^?T^RRUPT STACK 


OOOOOAOO-R 


281 


(4) 


















!P'- 


=00000012 


211 


(4) 


#-1071 


(12) 














KfRNEL STACK 


00000800-R 


276 


(4) 


















lfs: uCa param 


OOOOOOOO-XR 






#-692 


(4) 














LJ ^ " 

lOac. bad 


=0OOgQ0QA 

oooooF7e-R 


326 
562 


(4) 

(4) 


#-411 
#-546 


(4) 

(4) 














lOAD'ERROR 


00000208-R 


222 
778 


(4) 


#-546 


(4) 


#-766 


(4) 










m^iCioc 


00001 1F4-R 


(4) 


















muCus UDA 


00001 208-R 


792 


(4) 


















MfKASD 


=00000004 


212 


(4) 


















NUCNTlR fnd 


0000020 7-R 


221 


(4) 


#-542 


(4) 


#-795 


(4) 








t 


MODRIVE'O 1 


00000000-XR 






#-544 


(4) 














NO t OAD 


00000F6A-R 


S51 


(4) 


#-542 


(4) 














OUTBS!. sh 


0OOO0E7E-R 


418 


(4) 


#-391 


(4) 


#-401 


(4) 










OlJfCHAR 


OOOO0E87-R 


'•22 


(4) 


#-382 
#-430 


(4) 


#-412 


(4) 


#-420 


(4) 


#-424 


(4) 










(4) 














O'J'i X 


00Q0QE91-R 


126 


(4) 


#-429 


(4) 














ourwa 


0OOO0E84«R 


421 


(4) 


#-397 


(4) 


#-407 


(4) 










OUTZSTR 


00Q00E92-ft 
0000021 3-R 


1,27 


(4) 


#-373 


(4) 


#-431 


(4) 










r-ASS COUNT 


22i. 


(4) 


#-1060 


(12) 


#-1061 


(12) 


#-761 


(4) 






P9$ 7pi 


=00000012 
=00000004 






#-84 


(6) 














t>R$'lSP 






#-83: 


(6) 














pRt|;;if$p 


=00000000 






#-836 


(6) 















'4/>t:NkA2"-1 ,3 Cross 


reference 






14 


F 4 
-JUN-1984 


Fiche 


1 Frame 


F4 


Segu 
ro V03-0T 


ence 44 


*« ^\ 


^iKfsMO^ 
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: 36 VAX- 


-11 Mac 


Page 
A2.1]ENKAZ01^ 


32 


rro*^s reference 
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:29 DRBO:CBALL 


.ENKAZ.ENK 


(12) 


^»R^ WAPEN 


=00000038 






tf-827 


(6) 
















PRt'MCESR 


=00000026 






ft-759 


(4) 


#-779 


(4) 


#-793 


(4) 








PR$"RXCS 


=00000020 






#-384 


(4) 
















Pt<$ )^XDB 


=00000021 






#-386 


(4) 
















P^l^^iCBB 


=00000011 






#-840 


<6) 
















rprrxcs 


=00000022 






#-423 


(4) 
















t^R$"TXDB 


=00000023 






#-425 


(4) 
















PRt^l REV 


=00000001 


65 


(3) 




















PKUjT ABORT 


00000257-R 


231 


(4) 


539 


(4) 
















PRIWTAUTO 


0QOOQ45F-R 
0000049F-R 


244 


(4) 


533 


(4) 


585 


(4) 












PR I NT CPU 


248 


(4) 


573 


(4) 














1 


PRINTDAAO 


000004BO-R 


250 


(4) 


720 


(4) 


732 


(4) 










■ 


PRINTuISKERR 


0000030F-R 


236 


(4) 


568 


((*) 














' 


PRUJTDJAO 


000004BC-R 


252 


C4) 


- 625 


(4) 


643 


(4) 










■ 


PRiN^OJAI 


000004 C2-R 


253 


<4) 


622 


(4) 


640 


(4) 












PflWlTnRVFRR 


000002DO-R 


235 


(4) 


648 


(4) 


737 


(4) 










1 


PRINTOUAO 


000004B6-R 
00000267-R 


251 


(4) 


684 


(4) 
















P^?i>4ieN0 


232 


(4) 


580 


(4) 














■ 


P:ViMlFAlL 


00000245-R 


230 


(4) 


531 


(4) 
















PRINTFIELD 


00Q00232-R 
0000031 C-R 
0000046S«R 


229 


(4) 


577 


(4) 


650 


(4) 


739 


(A) 






1 


P'MNflOADMCK 


237 


(4) 


563 


(4) 
















P.'UMMLNU 


245 


(4) 


536 


(4) 


589 


(4) 










' 


PR[.SilNOCNTLR 


00000351 -R 


238 


(4) 


552 


<4) 














i 
1 


pm.\TNODRIVE01 


00000376-R 


239 


(4) 


557 


(4) 
















.>;j:hilNSPN60?5 


000003D8-R 


241 


(4) 


635 


(4) 


730 


(4) 










! 


r-mMNSPN808l 


0QQQ5427-R 
000004SB-R 


242 


(4) 


695 


(4) 
















f^li IMPART 


246 


(4) 


619 


<4) 


682 


(4) 


718 


(4) 






i 


)P»^i\rPASS 


00000223-R 


228 


(4: 


614 


(4) 


^n 


(4) 


713 


(4) 






[ 


PRINTPROPER 


000003AD-R 


240 


(4) 


633 


(4) 


693 


(4) 


728 


(4) 






j 


pr?l^jTRA60 


000004C8-R 


254 


(4) 


617 


(A) 














1 

i 


i-'iaNTRASO 


000004CE-'R 


255 


(4) 


680 


(4) 
















ri.:;fnRA81 


000004D4-R 


256 


(4) 


676 

716 


(4) 














j 


^'Rl^.rR^?ii 


000004AA-R 
00000293-R 


249 


(4) 


(4) 
















prj'\M<t r 


234 


(4) 


595 


(4) 














1 


f Wi\TSPNFND 


000004 56-R 
00000285-R 
000004 75«R 


243 


(4) 


645 


(4) 


652 


(4) 


734 


l4) 


741 


(4) 




^HiMTEMC' 


233 


(4) 


592 


(4) 














( 


*'Ri\TTrs; 


247 


(4) 


627 


(4) 


686 


(4) 


722 


(4) 








-ft (M ^ROUTINE 


OOOOOFOE-R 


505 


(4) 


532 


(4) 


534 


(4) 


53r 


(4) 


540 


(4) 












553 


(4) 


559 


(4) 


565 


(4) 


570 


(4) 


I 










574 


(4) 


578 


(4) 


581 


(4) 


586 


(4) 












590 


(4) 


593 


(4) 


596 


(4) 


615 


(4) 












618 


(4) 


620 


(4) 


625 


(4) 


626 


(4) 












628 


(4) 


634 


(4) 


636 


(4) 


641 


(4) 












644 


(4) 


646 


(4) 


649 


(A) 


651 


(4) 












653 


(4) 


67| 


(4) 


677 


(4) 


681 


(4) 












683 


(4) 


685 


(4) 


687 


(4) 


694 


(4) 


. 










%^ 


(4) 


714 


(4) 


717 


(4) 


719 


(4) 


1 










(4) 


723 


(4) 


7?9 


(4) 


731 


(4) 


• 










/33 


(4) 


755 


(4) 


738 


(4) 


740 


(4) 


, 










742 


(4) 
















;^Sr'«pr 


=00000004 
OO0Q0E98-R 
0Q000ED3-R 
0000021 7 -R 
OOOOOFEO-R 


352 


(4) 


#-372 


(4) 
















pt<' ."^p; 1 


446 


<4) 


#-489 


(4) 
















ptJO't^r MESS 


488 


(4) 


654 


(4) 


697 


<4) 


743 


(4) 






, 


R^f'O «FSS ST 


225 


(4) 


#-613 


t4) 


#-616 


(4) 












P-ftO' TEST 


611 


(4) 




















R.-.6aPl HESS^ST 


000002 18-ft 


226 


U) 


#-670 


(4) 


#«673 


(4) 












RA8a=trTF5T 

1 


0000109F-R 


666 


U) 





















Cror$ reference 

PAS' PkES 
RCcb^Mj^SS ST 
iR':.?^~TcST" 

SCG 
SCfiC 

sce^o 

set',''. 
SfBt 

sue 

SPIN (•'WN 

STAR 
T1 ^,. 

T?rs' 

T2:s.^ 
T3^S' 
T^ >■ 
TA"S. 

r5"v 

TEST. ' 
TfST .? 
TfST ; 
TFSt ■; 

TEST :> 
TFSTo 
TEST fl 
TO*' i*" ISTACK 

top*of"kstack 

T.f' " 
TXDP 
tOA • ! SI 

t'D'\" ' ' : f '■.^ 

^•nEx .. I 
V R;' t 

W^Af u'.SlVE 
.•^HAr'MOOE 



Cross reference 



CRD HARDCORE INSTRUCTION TESTS 



G 4 
lA-JUN-1984 Ffche 

1A-JUN-198A 16:01:36 
U-JUN-1984 15:53:29 



1 Frame G4 



COOOOOOO-XR 
0000021 F-R 
000011 21 -R 
OOOQOCOO-R 
=00Q0Q07F 

099Q2600-R 
000006QQ-R 
00000620-R 
000QQ624-ft 
000Q060A-R 
0OQQ6660-R 
00060664-R 
00000608-R 
=00000003 
:00000008 
00000000-XR 
:000000Q1 
00000000-R 
OOOOOOQO-R 
00000032-R 
00C0006A-R 
Q00QQQ91-R 
OOOOOOBE-R 
000000E9-R 
OOOOOOFF-ft 
0000011 E-R 
OOOOOOOO-R 
0000006A-R 
lOBE-R 
I0E9-R 
I11E-R 
►000-XR 
►000-XR 
)BFC-R 
)9FC-R 
122 




00*XR 
=AdFFFA68 

^OOQOOOQ-XR 

00001 1C8-R 
=00000000 

OOOOOOOO-XR 

00000203-R 220 (4) 



871 

877 

893 

923 

939 

968 

997 

1008 

1034 

873 

919 

964 

993 

1030 



282 
277 

213 
214 

218 

758 

329 



(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(4) 



(7) 

(7) 

(7) 

(8) 

(8) 

(9) 

(10) 

(10) 

(11) 

(7) 

(8) 

(9) 

(10) 

(11) 



(4) 
(4) 
(4) 
(4) 

(4) 

(4) 
(4) 



#-674 
#-712 



#-381 
831 



#-374 
#-631 
#-416 
1065 



#-854 




494 

843 

#-390 

#-621 
#-529 

#-711 



Sequence 
VAX-11 Macro V03-0T 
DRB0:C8ALL.ENKAZ.ENKA2.i: 



45 



Page 33 
VKAZOlAdS) 



(4) 
(4) 



(4) 
(6) 



(4) 
(4) 

(4) 
(12) 



(6) 



(12) 

(4) 

(6) 

(6) 

(4) 

(4) 

(4) 

(4) 
(6) 
(4) 
(4) 
(4) 
(4) 



#-715 



(4) 



#-395 
#-e90 



(4) 



#-726 



(4) 



rf-727 



(4) 




(4) 
(4) 
(4) 
(6) 



#-667 
#-612 



(4) 

C4) 



#-709 
#-669 



(4) 
(4> 



(ro*\=-. reference 



Cross reference 



CRD HARDCOfte INSTRUCTION TESTS 



H A 
U-JUN-198^ Ffche 1 
U-JUN-198A 16:01:3 
U-JUN-1984 15J53J2 



Frame hA Sequence A6 
VAX-11 Macro V03-0T Pa 
0R80 : CBALL -ENKAZ .ENKAZ. 1 IBHKAZ 



e 3A 
1A(12> 



I Macros Cross Reference I 



JMACK ' 
liPP/iOOEF 

AMORf MESSAGE 
Ai.TC^flfSSAGE 

CPU »rr.SAGC 

OAAf. H5SAGE 
OlSt^-RR MESSAGE 
DJAC.MfSSAGE 
D»Ai MESSAGE 
DRVf.^^ MESSAGE 
OUA^ MESSAGE 
fNO flESSAGE 
FAir MESSAGE 
fill 5 MESSAGE 
lOADK^K MESSAGE 
.lf:N:J MESSAGE 
NOCMTlR MESSAGE 
^^ODrl I VEOI MESSAGE 

NS;Hj60.?5 Ressage 
NSPN8081 message 
»ART, MESSAGE 
FAS' MESSAGE 
PRO^cR MESSAGE 
Ra6C^mCSSAGE 
RASr MESSAGE 
qAfO "MESSAGE 
Af*?-: "MESSAGE 
RrT RfSSAGE 
SPNrND MESSAGE 
TfN( mPSSAGE 
r£r'.:MESSAGE 



SIZE 


DEFINITION 
313 (A) 


REFERENCES.,, 


•it ■■•■•• 


313 


(A) 




31A 


(A) 


31A 


(A/ 


A 


31 3 


(A) 


313 


(A) 


2^ 


31 B 


(it) 


315 


(A) 




89 


(A) 


231 


(A) 




152 


(A) 


2AA 


(A) 




93 


(A) 


2A8 


(A) 




18A 


(A) 


250 


(A) 




113 


(A) 


236 


(A) 




188 


(A) 


252 


(A) 




192 


<A) 


253 


(A) 




139 


(A) 


235 


(A) 




1?^ 


(A) 


2j1 


(A) 




(A) 


c32 


(6) 




85 


(A) 


230 


(A) 




9? 


(A) 


|29 


(A) 




109 
156 


<A) 


237 


(A) 




(A) 


245 


(A) 




101 


(A) 


238 


(A) 




105 


(A) 


239 


(A) 




13A 


(A) 


2A1 


(A) 




1A8 


(A) 


^2 


(A) 




16A 


(A) 


2A6 


(A) 




81 


(A) 


228 


(A) 




130 


(A) 


2A0 


(A) 




1?2 


(A) 


25A 


(A) 




176 


(A) 


255 


(A) 




180 


(A) 


256 


(A) 




168 


a) 


2A9 


(A) 




125 


(A) 


23A 


(A) 




1AA 


(A) 


2A3 


(A) 




121 


(A) 


233 


(A) 




160 


(A) 


2A7 


(A) 



: Performance Indicators I 



h*^ V. ujl ization 
f ■^Tii.'ino processing 
i^av. I 
i:*n\,vt table sort 

=>3^ . : 

^/m>>ol table outDut 
■'^'e. » uynoDSis output 
Ci f. .'i-referenc» output 

Ai'M-mbler run totals 



Page faults CPU Time 



Elapsed Time 



112 

no 

81A 

A99 

18 

6 

132 
1701 



00 
00 



00 
00 
00 



00:00. AA 

0:00. 4i 

:10. 



00:00.90 
00:16.33 



00 



IS 




31A 



(A) 



315 



(A) 



I 4 

ZZ*fNKAZ-l.3 Cross reference IA-JUN-198'i ?1che 1 Frame U Secuence 4? 

ErjKAZOl CRD HARDCORE INSTRUCTION TESTS U-JUN-198A 16:01:36 VAX-11 Macro V03-01 ^_ ^58?. J5, 

VAX-u f^acro Run Statistics « »^v. c ^ U-JUN-198A 15:53;29 DR80:EBALL.ENKAZ*ENKAZ^1JENKAZ01A(12) 

The w^jrking set Mmit wds 500 pages. , . , . 

^"*^?S bytes <U1 psges) of virtual memory were used to buffer the intermediate code. 

^hr*^.> were 40 pages of symbol table space allocated to hold 620 non-local and 69 local symbols. 

\0y^ ^iowrce lines were read In Pass 1, producing 21 object records In Pass 2. 

^R Oiycs of virtual memory were used to define 38 macros. 

: Macro library statistics I 

Mi^cK' library name Macros defined 

SV^ssYSROOt/csySLIBDSTARLET.MLB;! 6 

568 ofTS were required to define 6 macros. 
The^-tf wore no errors* warnings or Information messages. 
MA(K\VlIST/CROSS/OBjECT ENKAZOIA 







ZZ-EMKAZ- 


-1.^ 


EN»;A20? 




Table oi 


contents 


kP' 


5A 


c?? 


92 


t3: 


?10 


(^) 


?;oo 


(3^ 


^^.^. 


C3V 


A^;1 



J 4 
- UDA50, LESI, IDC SIZING TESTS U-JUN-1984 Fkhe 1 Frame JA Sequence A8 

' ' - UDA50. LESL IDC SIZING TESTS U-JUN-1984 16:0A:00 VAX-11 Macro V03-0t Page 

DECLARATIONS 

UDA50 Bootstrap device initialization 

UDA50 Bootstrap driver QJO 

TEST 6 DETERMINING CRD BASE CONTROLLER 

TEST 7 SIZE CRD DISK OPTIONS AND CHECK DRIVE STATUS 

TEST 8 RA60 AND RC25 VERIFY PACK LABEL CRDPACK 



ZZ-ENKAZ-1.3 

ENKAZ02 

01-30 



UDA50. LESl. IDC SIZING 
- U0A50, L 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

» 

0000 
0000 



TESTS 
ESI, I 



1 

2 
5 

5 
6 

t 

8 

9 

10 

11 

12 
13 

u 

15 

16 
17 

18 
19 

;^o 

21 
22 
23 

2A 
25 

\^ 

28 
29 
30 
31 
32 
33 
34 
35 
36 

ly 

38 
39 
40 

41 
*? 

43 
44 
45 
46 
47 
48 
49 
50 
51 
52 



K 4 
14-JUN-1984 Fiche 1 Frame K4 Sequence 49 

DC SIZING TESTS 14-JUN-1984 16:04:00 VA)t-11 Macro V03-OT Page 

14-JUN-1984 13:28:26 0RB0:CBAI.L.ENKAZ.EWKAZ^13ENKAZS2A 

.TITLE ENKAZ02 - UDA50, LESI. IDC SIZING TESTS 
.IDENT '01-30' 

******** **^** ******************************************************** ******* 



1 
(1) 



COPYRIGHT (c) 1978, 1980, 19P'!, 1983 BY 

DIGITAL EQUIPMENT CORPORAi , MAYNARD, MASSACHUSETTS, 

ALL RIGHTS RESERVED- 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 86 USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE; IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL, 



* * 

***************************************************************************** 



+ + 
FACILITY: 



BOOTS 



ABSTRACT: 

This module contains the bootstrap device driver for the 
UDA 50 and RCF25/RC25 disks. It will perform some sizing 
for supported CRD 11/730 disk options and read the label 
off RA60 and RC25 disks. 

ENVIRONMENT: IPL 31, kernel mode, code must be PIC 

AUTHOR: Kerbey T, Altmann, CREATION DATE: 20-NOV-1981 

MODIFIED BY; 

Peter Green 1«AprU-1983 

Modified to run with ENKAZ level 4 program In CRD package, 

Darryl L. Ball 14-June-1984 

Added 730/725 Processor register definitions. Also modified existing 
boot routine to Boot the system disk If no RL02 Is present. 



ENKAZ02 
01-30 



DECLARATIONS 



" U0A50, LESl 
DECLARATIONS 



IDC SIZING TESTS 



L A 
U-JUN-198A Fiche 1 Frame L4 ,Seguence 50 

U-JUN-1984 16:04:00 VAX-11 Macro V03-0T Pa 
U- JUN-1 984 1 3 J 28 ! 26 DR80 : CBALL . ENKAZ , ENKAZ.1 3ENKAZ 



e 2 
2A.(2) 



0000 54 

0000 55 

0000 56 

0000 57 

0000 58 

0000 59 

0000 60 

0000 61 

0000 62 

0000 63 

0000 64 

0000 65 

0000 66 

0000 67 

0000 68 

0000 69 

0000 70 

0000 71 

0000 72 

0000 73 

00000000 0000 74 
00000002 0000 75 

00000001 0000 76 
00008000 0000 77 
00000008 0000 78 
OOOOOOOE 0000 79 
OOOOOIEE 0000 80 

0000 81 

0000 82 

0000 83 

0000 84 

0000 85 

0000 86 

0000 87 

0000 88 

0000 89 

00000000 90 

0000 91 

0000 92 

0000 93 

0000 94 

0000 95 

0000 96 

0000 97 

0000 98 

0000 99 

0000 100 

0000 101 

0000 102 

0000 103 

0000 104 

0000 ^0L 

01 FC 0000 106 

0002 107 

0002 108 

0002 109 

50 38 08 0002 110 



.S8TTL DECLARATIONS 



INCLUDE FILES: 



SBTDDEF 

$IODEF 

SMSCPDEF 

SPRDEF 

$PR730DEF 

SPTEDEF 

SftPBDEF 

$SSDEF 

$U8ADEF 

$U8IDEF 

SVADEF 



, EQUATED SYMBOLS: 

UDAIP ^ 

UDaSA = 2 

GO = 1 

OWN = iai5 

SI = 11 

S4 = 14 

UMR = 494 



; OWN STORAGE: 



Boot device types 

I/O function codes 

MSCP definitions 

Processor registers 

730/725 Processor registers 

Page table entries 

RPB offsets 

Status codes 

U8A definitions 

11/750 U8A definitions 

Virtual addresses 



; Last-1 UNIBUS Mapping Register 



; Boot driver table entry 

,Psect SIZING * page ; Define psect allocation 
.S8TTL UDA50 Bootstrap device initialization 

++ 

Inputs; 

R9 — > RPB 
Outputs; 

RO - status code 

.Entry UD^INIT, *M<R2,R3.R4,R5,R6,R7,R8> 
.ENABLE LSB 
HFPR #PR$.MAPEN, RO ; Get the mapping status 



22-ENKA2-1.3 

ENKAZ02 

01-50 



51 



M 4 
UDA50 Bootstrap device initialization U-JUN-1984 Fiche 1 ^Frame m Sequence 

CM ^ U^jUN-1984 16:04:00 VAX-11 Macro V03-OT Page 5 

UDA50 Bootstrap device initialization U-JUN-1984 13:28:26 DRaO:CBALL.ENKAZ.ENKA2.1JENKAZ02A.(2) 



56 O003DC0O 8F 



51 
02 



52 



52 
A2 
5? 



52 

I 

0? 



0200*CF 
77'AF 



51 
A2 
15 



5o 

10* 

09 



52 



84 
6A 



53 5C A940 

57 5-!. A940 

OC 50 

52 50 B942 

FFEOOOOO 8F 

54 0F68 C3 
52 AC'AF 

52 
52 AC'AF 



53 



58 02 

0200*CF 

50 OB 

67 



5? 



54 

Of 



52 

03E8 
02 

54 
51 
52 



02 
08 



A7 
50 



18 
C2 
A7 
39 
50 
18 
51 
2D 
EC 



85 
OE 



51 

0210»Cf 

51 



51 



0250'CF 

EC AF 

51 56 

021C'CF 





0005 




0005 




0005 




0005 




0005 




0005 


DO 


0005 


9E 


OOOC 


C6 


0011 


C9 


0016 


CO 


0018 


EF 


001F 




0024 


DO 


0024 




0029 


DO 


0029 


E9 


002E 


DO 


0031 


CA 


0036 


DE 


003D 


C9 


0042 


D6 


0047 


C9 


0049 




004E 




004E 




004E 




004E 


DO 


004E 


9E 


0051 


DO 


0056 


B4 


0059 




0058 




0058 




005B 


DB 


0058 


9E 


005E 


BO 


0063 


19 


0067 


EO 


0069 


D8 


006D 


D1 


0070 


1A 


0073 


11 


0075 




0077 




0077 


iOO 


0077 




0078 


80 


0078 


F3 


007F 




0083 




0083 




0083 




0083 


9E 


0083 


CA 


0088 


C9 


008C 


9E 


0092 



111 

112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 

138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 



Set up a UNIBUS mapping register<s) __ 

To make things easy, we will grab the last two register 



These registers are necessary since the 
the controller which is a UNIBUS device 



to cover the ring and buffers. 

• (494 g 495). 
ill be accessed by 
not do any mapping. 



ring 
that 



area 
does 



20$: 



MOVL 

MOVAB 

BJCL3 

BISL3 

ADDL 

EXTZV 

ASSUME 

MOVL 

ASSUME 

MOVL 

8L8C 

MOVL 

BJCL 

MOVAL 

BISL3 

INCL 

BiSL3 



#<UKRa9>, R6 ; Set 

W*INTTBL, R2 ; Get 

B*BYTE_OFF, R2, R1 ; Get 

R6, R17 2(R2) ; Set 

S*#<RING-INTT8L>,2(R2) ; Make 

#VA$V VPN,*VA$S VPN,R2,R2 . _. 

RPB$L"ADPVIR EQ RPB$L ADPPHY+4 

RP8$L ADPPHy(R9)CR0D,R3 ; Get correct pointer to 

RPB$L"CSRVJR EQ RP8$L CSRPHY+4 



up a constant 
the address of the ring 
the byte offset in page 
in the UNIBUS addr 
it the ring address 



Get the page frame 



RPB$L"CSRPHY(R9)CR03/^7 

R0,20$ 

aRPBSL SVASPr(R9)CR2LR2 

#*C<PTC$M PFN>,R2 

UBA$L MAP+<UMR*4>(R3),R4 

3*VALTD,R2,(R4)+ 

R2 
B*VALJD,R2,(R4) 



Get correct address of 
If clr, then physical 
Virtual, get physical 
Now a physical PFN 
Get the last two UMR's 
Set as valid w/PFN 
Set next page just in case 
Set as valid w/PFN 



USA reg 
device CSR 



Now go thru the ridiculously complicated startup sequence. This is a 
fugue in four parts. 



RETftY: 

; Wait 

TIME: 

LOOP: 



MOVL 
MOVAB 
MOVL 
CLRW 



ff2,R8 
W* I NT TBI, 
ffS^, RO 
UDAIPCR7) 



R3 



100 microseconds. 



R2 



MFPR Jt^PR730$^T0DR, 

MOVAB 1000(R2T- R2 

MOVW UDASA(R7),R4 

BLSS ERROR 

BBS RO.R4-30$ 

MFPR #PR730$ TODR, Rl 

CMPL R1,R2 

BGTRU ERROR 

BR8 LOOP 



BYTE OFF; 

" .LONG *C<*X1FF> 

30$; MOVW (R3)+>UDASA(R7) 

AOBLcQ #S4,R0JIME 



Make two tries at this 

Step flag 

Poke the controller's CSR 



Current time 

Set for 10 seconds later 

Check the status register 

Bit 15 set is the error indicator 

Done with this step? 

No, pick up time 

Are we past due time? 

Yep, error 

No, try again 



Mask for byte offset in page 

Send the controller the next step 
Set for next step 



Initialization complete. Write the packet address in the ring 



MOVAB W*RSPPKT, Rl 

BICL BYTE OFF, Rl 

BISL3 R6, R1, W*RD 

MOVAB W*CMDPKT, Rl 



Get the address oi response packet 



Set byte offset in 
Get the address of 



ring desc 
command packet 



ZZ-ENKA2-1.3 

EN»CAZ02 

01-30 



UDA50 Bootstrap device initialiHation 

- UDA50, LESI. IDC SIZING TESTS 
UDA50 Bootstroo device im'tiali^ation 



N 4 
U-JUN-1984 Fkhe 1 Frame N^ Sequence 52 

' ' '- " - V03-01 Page 



U-JUN-1984 16:0A:00 VAX-11 Macro V03-01 Page 4 
U-JUN-198A 13:28.'26 DftB0:CBALL.ENKAZ.ENKAZ.13ENKAZ02A. <2) 



51 DD AF 
OSU'CF 51 56 



AC 58 
50 005A 8F 



CA 
C9 
04 

F5 
3C 
04 



OOOOOOAC 
80000000 



00 



8000 

OOOCOOOO 

0001 

0000 0000 
0000 
0000 

00000000 
00000000 

0030 

0001 

0001 

0000024C 

00000250 

00000280 



0097 

009B 

O0A1 

00A2 

O0A2 

00A5 

OOAA 

OOAB 

O0A8 

OOAB 

OOAC 

OOBO 

OOBO 

0080 

0080 

00B1 

0081 

O0B1 

0081 

0081 

0081 

0200 

0200 

0202 

0206 

0208 

0208 

020C 

020E 

0210 

0210 

02U 

0218 

0218 

021A 

021C 

021E 

024 r 

02AC 
0250 
0250 



168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 



BICL 

BISL3 

RET 



BYTE^OFF, R1 
R6, Rl.W-^CD 



ERROR: 



VALID: 



SOBGTR R8, RETRY 
MOVZWL #SS$ CTRLERR^RO 
RET 

-DISABLE LS8 

,=<.+1>&-2 

.LONG *X80000000 



Ds$6b.Uda50.Init:: 
Init: 

•Byte 

!■ RINGS 



.Align Page 

1NTT8L: .WORD OWN 

.LONG 

■WORD GO 

■WORD 0,0 

CMDINT: .WORD 

RSPINT: .WORD 
PING: 

RD: .LONG 

CD: .LONG 

.WORD 48 

.WORD 1 

CMDPKT: .WORD 1 

.6LKW 23 

.8LKW 2 
UDA Response: : 

RSPPkT: .BLKW 24 



; Set byte offset in ring desc 



; Try once again 
; Set failure status 



Sign bit set 

Global label 
convenient local label 
,. init flag 



; Step 1 pattern 

; Step 2 B 3 pattern 



; Reserved 

; Command status word 

; Response status word 

; UNiauS address of response ring 

; UNIBUS address of command ring 

; Length of message 

; ID 

; Full envelope 



Global label or CONFIG 



ZZ-ENKAZ-1.5 

ENKAZ02 

01-30 



UDA50 Bootstrap driver QIC 

- UDA50, LESI, IDC SIZING TESTS 
UDA50 Bootstrap driver QIC 



53 



B 5 
l/.-JLlN-198'l Fkhe 1 Frame B5 Sequence 

U-JUN-198A 16:04:00 VAX-11 Macro V03-0T , Pa 

U-JUN-198'i 13:28:26 0RS0:CBALL.ENKAZ.ENKAZ_1.l£NKAZ 



' 5 
•A, (3) I 



00000010 
OOOOOOU 

50445213 
20464341 

00000000 
00 
00 
00 
00 
00 
00 



00000081 
00000100 
00000000 



0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0230 
0280 
0280 
0280 
0280 
0280 
0280 
0280 
0280 

02§Q 
0280 

0280 

0280 

0280 

0280 

0280 

0280 

0280 

0284 

0285 

0286 

0287 

0288 

0289 




210 
211 

215 

216 
?17 

218 
219 
220 
221 
222 
223 

225 
226 
227 
228 
229 
230 
231 
232 
233 
23A 
235 
236 
237 
238 
239 
2^0 
2A1 
2^2 
2A3 
24 <1 
2A5 
246 
247 
2A8 
249 
250 
251 

254 
255 

256 
257 

259 
»60 
f61 
f62 
►63 
»64 
f65 
►66 



,SBTTL UDA50 Bootstrap driver 010 



Inputs: 



R3 - base address of adapter's register space 

R5 - Ibn for current piece of transfer 

R6 -^ contains 

R7 - address of the device's CSR 

R8 - size of transfer In bytes 

R9 - address of the RPB 

RIO - starting address of transfer xbyte offset In first 

page ORed with starting map register number) 

P11 - LBN at start of transfer 

FUNC(AP)" I/O operation (JOS^READLBLK) 

SIZE<AP)« Size of transfer In bytes 

MODE(AP)- Address Interpretation mode (0 = physical, 1 = virtual) 



Implicit Inputs: 

RPBSW.UNIT 
Outputs: 

RO - status code 



- RPB field containing boot device unit number 



SSS NORMAL 
SSI NOSUCHDEV 
SS$ICTRLERR 

R3 - must be preserved 



^ successful transfer 

- unsupported device 

- fatal controller error 



FUNC = 16 
MODE = 20 

CRDPACKl s *X5Q445243 
CRDPACK2 = '*X204B4341 



CROP 
ACK_ 



WHAi DRIVE:: 
RABIPRES:; 
RC25"PRES:: 
NODRlVE 1:: 
HMBLK ERR 
BAD DTSK: 
SPIR DWN: 



CD ROY 

D?r 

IDC HLD:: 



.LONG 

■BYTE 

•BYTE 

.BYTE 

.BYTE 

.BYTE Q 

.BYTE 



s=*X81 
==*X100 
.LONG 



Controller and Drive ready bits 
Drive 1 select 
Temporary storage 



2Z-ENKAZ-1.3 

ENKAZ02 

01-30 



C 5 

UDA50 Bootstrap driver QIC U-J'JN-198A Fkhe 1 Frame C5 Sequence 5^ 

^ - UDA50, LESL IDC SIZING ThSTS U-JUN-198'i U.'O'i.'OO VAX-11 Macro V03-0T ^^^ Page 
UDA50 Bootstrap driver 010 U-JUN-198A 13:28:26 0RB0:[BALL.ENKAZ.ENKAZ.1DENKAZ02A. 



00000000' EF 
59 
53 



6 
(3) 



00000000 



01FC 



O0000000»EF 
OOOOOOOO'EF 
OOF 26000 8F 



5C A9 
60 A9 



53 
53 



5^ A9 
58 A9 



57 

57 



03 F0E8 CF 

OOEO 

F02F CF 00 

OA 50 

00000000' EF 01 

F022' 

PDCD CF 01 



DE 
9E 
DO 

DO 
DO 



57 A0FFFA68 8F DO 



00 
DO 

E9 
31 
F8 
E8 
DO 
31 
90 



028E 

0292 

029? 

0292 

0292 

0292 

0294 

0294 

029A 

0294 

0294 

0294 

029F 

02A6 

02AD 

03AD 

0281 

02B5 

0285 

02BC 

02BC 

02C0 

02C4 

02C4 

02C9 

02cr 

02Di 

02D4 

02D8 

02DE 

02E3 

02E3 



.LONG 



267 IDC^TST:; 
268 

269 ; 

270 ; 

271 ; 

272 .ENTRY UD DRJVER1, *M<R2,R3,R4,R5,R6,R7,R8> 
273 



Temporary storage 



UDA50 device driver. 



274 

275 
276 

iiy 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 3S: 

293 

294 

295 

296 5S: 

297 

298 



Start out by re-lniting the UDA if It hasn't been Inited yet* 
or I'f there was an error previously. 



MOVAL UNEX^E^I,SCB4 

MOVAB RPB ByFF.R9 

MOVL #<*5!f26000>,R3 

MOVL R3,RPB$L ADPPHY(R9) 

MOVL R3,RPB$L^ADPV]R(R9) 

MOVL #<*X40FFF468>,R7 

MOVL R7,RPe$L.CSRPHY(R9) 

MOVL R7,RP8$L^CSRVIR(R9> 

Blbc WMnIt, 3S 

BRW TEST 7 

Calls #0, Od.lnit 

BlbS RO, 5$ 

MOVL ifnNOCNTLR FND 

BRW ERROR ROUTINE 

Move #1, W^Inlt 



UNEXPECTED MACHINE CHECK HANDLER 

ADDRESS OF RP8 

BASE ADDRESS OF 11/730 UNIBUS 

ADAPTER 

SET ADAPTER ADDRESS 

SET ADAPTER ADDRESS 

FIXED ADDRESS OF UDA50 
AND LESl CONTROLLERS 
SET CSR ADDRESS 
SET CSR ADDRESS 

Branch If already set 

Call 1n1t code 



Exit if error 
Set init byte 



ZZ-ENKAZ-1.3 

ENKA202 

01-33 



55 



D 5 
TEST 6 DETERMINING CRO BASE CONTROLLER U-JUN-198'i Fkhe 1 Frame 05 Sequence . 

- UDA50. LESJ, IDC SIZING TESTS U-JUN-198A 16:04:00 VAX-11 Macro V03-0T Page 7 
TEST 6 DETERMINING CRD BASE CONTROLLER 14-JUN-1984 13:28:26 DRB0:CaALL.ENKAZ.ENKAZ.1JENKAZO2A. (3) 



OOOOOOOO'EK 00000000*EF 



00000000 *9F 00000100 8F 

0000028A'9F 00000000 •9F 

0000028E'9F 0000028A'9F 

OOO0028E'9F 81 8F 

03 
C040 
0065 



00000000' EF 00000000*EF 



50 00000000 •9F 



FF5C CP 00 



50 n 

51 03 

52 0003PA68 8F 

53 FF39 CF 

54 

55 OOOOOOOO'EP 

50 

5E 00000200 Sf 

6E 



50 OOA80003 8F 

51 03 

5? 00FFF886 8^ 

53 01 

54 

55 OOOOOOOO'EF 

5D 

5E 000OO2O0 8f 



02E3 

02E3 

02F3 

02E3 

02E3 

02E3 

02E3 

02E3 

02E3 

DL 02E3 

02EE 

02Ec 

DO 02EE 

00 02F9 

9A 0304 

91 030F 

1? 0317 

31 0319 

31 03U 

031F 

031F 

9e 031 F 

03?A 

032A 

032A 

BO 032A 

0331 

0351 

0331 

0331 

FB 0331 

0536 

0336 

0336 

03-6 

0336 

DO 0336 

DO 0339 

DO 033C 

00 0343 

D4 0348 

DO 034A 

04 0351 

DO 0353 

17 035A 

035C 

035C 

035C 

035C 

00 035C 

DC 0363 

DO 0366 

00 036D 

04 0370 

00 0372 

04 0379 

no 0378 



SBTTl TEST 6 DETERMINING CRD BASE CONTROLLER 
TEST DESCRIPTION: 



IDC: 



S 



300 
301 
302 
303 
304 
305 
306 
307 

308 TEST 6:: 

309 

310 

311 

312 

313 

3Vi 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

532 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

i44 

345 

346 

347 

348 
349 

350 
351 
352 
355 
354 
355 
356 



THIS TEST DETERMINES THE BASE SUPPORTED CRD CONTROLLER. 



MOVAL MCHK„IDC,SC64 



MOVL #DS1,o»/^IDC CSR 

MOVL a*J0C CSR,3#IDC^HLD 

M0VZ8L S*IDC"HLD,aj(fIDC TST 

CMP8 #C RDY,a)lfIDC TST 

BNEQ IS" ' 

BRW IDC PARAM 1 

BRW IDC PARAH 



UOA^LESI:: 

M0VA8 MCHK_LES_UDA,SCB4 



MOVW a#UDA_LESI_CSR,RO 



CALLS #0,UD.ORIVER1 



LESI.UDA.PARAM: 

MOVL 

MOVL 

MOVL 

MOVL 

CLRI 

MOVI 

CLRl 

MOVL 

JMP 



IDC.PARAM^I:: 

MOVL 
MOVL 
MOVL 
MOVL 
CLRL 
MOVL 
CLRL 
MOVL 



#*X11,R0 

#3,R1 

#'^X03F468,R2 

WHAT DRIVE, R3 

R4 

WHAT M0DE,R5 

FP 

#*X200,SP 

(SP) 



#*XOA80003,RO 

#3,R1 

**X0FFFB86,R2 

*1,R3 

R4 

WHAT M0DE,R5 

FP " 

tf'^X200,SP 



SET UP MACHINE CHECK 
HANDLER FOR IDC 

Drive 1 select 

Move status to temp storage 

?et n'd of unnecessary bi'ts 
ontroLler and Drive ready set? 
No goto IS 
Yes Boot RL02 
No Boot R80 System Disk 



SET UP MACHINE CHECK 
HANDLER FOR KLESI AND 
UDA50 

SET UP CSR OF KlESI AND 
UDA5C ON 730 UNIBUS 
IF EITHER KLESI OR 
UDA50 THERE.-*. 

CALL UDA50 & LESI 
INITIALIZATION AND 
STATUS 



BOOT UDA OR LESI 
DRIVE TO BE DETERMINED 
D/6/L 11 



D/G 
D/G 
R3 ■ 
D/G 
R5 ■ 
D/G 
0/6 



1 3 

2 3F468 

: DRIVE 
4 

' CRD MODE 

E 200 



OR 1 



BOOT IOC RL02 CROPACK 



DRIVE 
D/G/L 
D/G 1 
D/G 2 
D/G 3 
D/G 4 
D/G 5 
D/G D 
D/G E 



1- SQ1B00.CMD 
6 00A80003 

FFFB86 
1 



010 
'00 



Z2-ENKAZ-1.3 

ENKAZ02 

01-30 



TEST 6 DETERMINING CRD BASE CONTROLLER 

" UDA50, LESI, IOC- 
TEST 6 DETERMINING CRD 



SIZING 



50 
52 

55 
5E 



6E 



8e 
03 
8^ 
00 
5A 

00000000' EF 
5D 

00000200 8f 
6E 



00A80003 

51 
00FFFe86 

53 



17 0382 

038/« 

038^ 

038*^ 

DO 038A 

DO 0388 

DO 038E 

DO 0395 

D4 0398 

00 039A 

D4 03A1 

DO 03A3 

IV 03AA 

03AC 

03AC 



357 

358 

359 IDC, 

360 

361 

^62 

363 

364 

365 

366 

367 

368 

369 

370 

371 



E 5 
U-JUN-198A Fiche 1 Frame E5 Sequence 56 
TESTS U-JUN-1984 16:0^:00 VAX-11 Macro V03-0T Page 8 
BASE CONTROLLER H-JUN-198A 13:28:26 DRB0:CBALL.ENKAZ.ENKAZ«1]ENKA2o2A, (3) 



BOOT IOC R80 CRDPACK 

DRIVE - SQ0800.CMD 

D/G/L 00A8OOO3 

D/G 1 3 

D/G 2 FFFB86 

D/G 3 Drive No. "0" 

D/G A 

D/G 5 8010 Crd Mode 

D/G D 

D/G E 200 



JMP 


(SP) 


PARAM_0:: 




MOVL 


#*X0A80003,R0 


MOVL 


#3,R1 


MOVL 


#'^X0FFFB86,R2 


MOVL 


#0,R3 


CLRL 


RA 


MOVL 


WHAT M0DE,R5 


CLRL 


FP 


MOVL 


#*X200,SP 


JMP 


(SP) 



ZZ-ENKAZ-1.3 

ENKAZ02 

01-30 



57 



F 5 
TEST 7 SIZE CRD DISK OPTIONS AND CHECK D U-JUN-1984 ^^ Fjche 1 Frame F5 ^^ Seguence 

- UDA50, LESI. IDC SIZING TESTS 1A-JUN-198-i 16:04:00 VAX-11 Macro V03-0T Page 9 

TEST 7 SIZE CRD DISK OPTIONS AND CHECK D U-JUN-198A 13:28:26 DRB0:CBALL.ENKAZ.ENKAZ.13ENKAZO2A. (3) 



6A A9 01 
FECB CF 01 





FECD 


CF 




FECC 


CF 




FEC7 


CF 


55 


FE57 


CF 




85 


01 


85 


64 


A9 




85 


09 
85 
65 




OACB 






52 


52 


FF7D 


CF 


00000000 


•EF 


5? 



52 
FE98 CF 



11 
23 

07 
01 

05 



5? 



5*:' 



52 



52 



DO 
DO 

94 
94 
94 
9E 
DO 
9A 
9A 
7C 
7C 
30 

D4 

90 
91 
15 
81 
12 
90 
11 



FE90 CF 01 90 



52 04 

52 FE6E CF DO 

22A4105C 8f 01 

03 12 

F8F5* 31 

25641050 8F D1 

03 12 

F8EQ' 31 

2S641^51 8F D1 

08 12 

FE5F CF 01 90 

F8D8* 31 

20643019 8f Dl 

08 12 

FE4F CF 01 90 

F8Cr» 51 

fE63 Cf 05 

08 12 



03AC 

03AC 

03AC 

03AC 

03AC 

03AC 

03AC 

03AC 

03AC 

0380 

0385 

0385 

0389 

038D 

03C1 

03C6 

03C9 

03CD 

0300 

03D2 

03D4 

03D7 

03D7 

0309 

03DE 

03E5 

03E7 

03EA 

03EC 

03F1 

03r3 

03F3 

03F8 

03F8 

03F8 

03F8 

03FA 

03rF 

0406 

0408 

0406 

0408 

0412 

0414 

0417 

0417 

041E 
0420 
0425 
0428 
0428 
042F 
0431 
0436 
0439 
0439 
04 3D 



373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 

388 
389 
390 
391 
392 
393 
394 
395 
396 
397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 



.SBiTL TEST 7 SIZE CRD DISK OPTIONS AND CHECK DRIVE STATUS 

) TEST DESCRIPTION: 

* 

; Bring the device on-line and check status 
tEST_7:: 



DRIVEO: 



MOVL #1,RPB$W UNIT(R9) 

MOVL #1,WHATjRIVE 

CLRB NODRIVE 1 

CLR8 SPIN DWR 

CLRB BAD JlSK 

M0VA8 W*CMDPKT, R5 

MOVL Jr1,(R5) + 

M0VZ8L RPB$W,UNI T (fi9) , (R5) + 

MOVZBL #MSCP5k,0P_0NLIN,<R5)+ 

CLRQ (R5)+ 

CLRO (R5) 

6S8U 10 

MOVW RSPPKT+MSCP$W,STATUS,R2 

CMP8 R2,MSCP$K ST SUCC 

BEQL NORMAL " " 

CMPW #''X23,R2 

BNEQ 7$ 

M0V8 #1,SPIN DWN 

BR8 NORMAL 



7$: MOVB JSr1,BAD.DISK 

NORMAL : 



TEST UNIT 1 FIRST 



20$: 



30$: 



40$: 



50$: 



CLRL 
MOVL 
CMPL 
BNEQ 
BRW 

CMPL 
BNEQ 
BRW 

CMPL 
BNEQ 
MOVB 
BRW 

CMPL 
BNEQ 
MOVB 
BRW 

TSTL 
BNEQ 



Get the address of command packet 
Set command ref number 
Put unit number in cmd packet field 
Set opcode to brina drive online 
Clear byte count. Buff desc 
buff desc and LBN 
Send it out 



CHECK STATUS 
IF SUCCESS 

IF NOT SPINNING 

SET A BIT TO TST LATER 



DRIVE OR CONTROLLER 
ERROR 



R2 

RSPPKT+MSCPSQ UNIT.ID+8,R2 

Jt'*X22A4103C,R2 

20$ 

RA60.TEST 

#'^X25641050,R2 

30$ 

RA8081 TEST 



#'^X25641051,R2 

40$ 

*1,RA81 PRES 

RA8081JEST 

#*X20643019,R2 
50$ 

#KRC25 PRES 
RC25,TESt 

WHAT.DRI7E 

INIT,DRV0 



; UDA50 DISK TYPE 
RA60 ? 

IF YES PRINT MESSAGE 

RA80 ? 

RA81 ? 



RC25 



NO DRIVE 1 TRY DRIVE 



7Z-ENKAZ-1,3 

IHKM02 

01-30 



Sequence 
V03-0T 



58 



G 5 
TEST 7 SIZE CRO DISK OPTIONS AND CHECK D 14-JUN-198A ^^ Fjche 1 Frame 6J 

- UDA50, LESJ, IOC SIZING TESTS 14-JUN-1984 16^04:00 VAX-11 ^acro . _ 

TEST 7 ^IZE CRD DISK OPTIONS AND CHECK D 14-JUN-1984 13:28:?6 DRB0:[8ALL.ENKAZ.£NKAZ,1 JENKAZ 



Pagi 
AZO. 



? 10 
»A.(3) 



FE42 CF 01 


90 


Q43F 


FBB9' 


31 


0444 
0447 
0447 
0447 


64 A9 00 


DO 


0447 


FE30 CF 00 


DO 


0448 


FF62 


31 


Q45Q 
0453 
0453 



430 


Move 


431 


BRW 


433 




434 


INIT DRVO:: 


435 


MOVL 


436 


MOVL 


437 


BRW 


438 




439 





#1.N0DftIVE 1 
ERROR.ROUTTNF 



#g,RPB$W UNIT(R9) 
*0,WHAT,PRIVE 



DRivEO 



NO SUPPORTED DRIVE OPTION FOUND 
DRIVE OR 1 



TEST UNIT 

NOT A CRD SUPPORTED 
DISK OPTION TRY DRIVE 



2Z-ENKAZ-1,3 

ENKAZO? 

01-30 



H 5 
TEST 8 RA60 AND RC25 VERIFY PACK LABEL C U-JUN-IQS-i 

- UDA50, LESl, IDC SIZING TESTS U-JUN-191 
TEST 8 RA60 AND RC25 VERIFY PACK LABEL C 14-JUN-19I 



Fiche 1 Frame H5 
14 16:04:00 VAX-11 Macro 

14 " ■ " 



Seguence 59 
V03-0T 



Pagi 
13:28:26 DFtBC:CBALL.ENKAZ.ENKAZ_1JENKA20. 



} 11 
»A.(3) 



00000000 
00000000 
00000000 
000007D8 
OOOOOOOQ 
00000000 
00000800 



TABS 



10 



53 

S8 
AC 



OOF 26000 

55 
00000200 
00000021 *EF 
FAOO CF 21 



CF 
51 
8F 
01 
8F 



FAOF CF 
F9FA CF 



55 
58 



5A 



8A 

64 

15 



51 

51 

51 
09 



5A 
5A 
54 



fDCP Cf 
15 09 
0E40 C3 



80000000 8F 

51 

80000000 8F 

00000190 8F 

FOCF CF 



5A 



FDAl CF 

07 

FA1D CF 01 

26 



FA10 Cf 



FD98 CF 

s? 

19 



FF56 CF 
FFAF CF 



5044524 5 8F 

OE 

204843A1 8F 



94 

D4 
DO 
DO 
DO 

?? 

00 
DO 



DE 
EF 
DE 

C9 
06 
C9 
FO 
DO 



';3 10 



D5 
12 
90 
11 

05 

11 

11 

D1 
12 
01 



0453 
0453 
0453 
0453 
0453 
0453 
0453 
0453 
0453 
0600 
0600 
0604 
0608 
060c 
07D8 
07DC 
0760 
0800 
0800 
0800 
0804 
0806 
080D 
0810 
0817 
081F 
CS24 
0824 
0829 
082E 
082E 
082E 
082E 
0833 
0838 
08|d 
083D 
0845 



441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 

490 
491 
492 
493 
494 
495 
496 
497 



.SBTTL TEST 8 RA60 AND RC25 VERIFY PACK LABEL CRDPACK 

TEST DESCRIPTION: 

READS RA60 (DRIVE OR 1) AND RC25 (DRIVE 0) HOME BLOCK TO DETERMINE IF THE 

PACK LABEL IS CORRECT AND THE HOME BLOCK IS VALID, 



■ALIGN PAGE 

HM8LK BUFF: 

VALIDT: 

VALID2: 

CRDP: 
ACK.: 

TEST.8:: 

CLR8 
CLRL 
HOVL 
MOVL 
MOVL 
MOVL 
M0V8 

MOVL 
MOVL 



.LONG 
.LONG 
.LONG 
.6LKL 
.LONG 
.LONG 
,BLKL 









115 





8 



HM8LK ERR 

R1 

#<'^yF26000>,R3 

#1,R5 

#512, R8 

10$ ftEADLBLK,FUNC(AP) 

#HSrPSK OP READ, - 

CMDPKT+nSCPSB.OPCODE 

R5,CMDPKT+MSCPlL,LBN ; 

R8,CMDPKT+MSCP$L^6YTE^CNr 



LBN « 1 

BYTE COUNT = 512 
10 OPERATION 
READ COMMAND 

SET THE LOGICAL BLOCK NUMBER 
; SET THE BYTE COUNT 



SETTING UP 2 UNIBUS MAPPING REGISTERS AND HOME BLOCK BUFFER 



V.HHBLK: 



LABEL: 



MOVAL 
EXTZV 
MOVAL 

BISL3 

INCL 

BISL3 

INSV 

MOVL 

BS68 

TSTL 
BNEQ 
M0V8 
BR8 

TSTL 
BNEQ 
M0V8 
BR8 

CMPL 
BNEQ 
CMPL 



HMBLK BUFF, RIO 

#VA$V VPN,*VA$S^VPN,R10,R1 

UBA$L.MAP+<400*5>(R3) ,R4 

*UBA$M BRRVR AIR,R1,(R4)+ 

R1 

*UBA$M BRRVR AIR,R1,(R4) 

#400,#yA$V^VPN-#VA$LvPN,R10 

rio,cmdpkt?mscp$b.buPfer 



MAP 



ADDRESS OF TRANSFER BUFFER 

GET PFN 

POINT TO UNIBUS 

REGISTER 400 

SET AS VALID W/PFN 

NEXT PFN 

SET AS VALID W/PFN 

SET MAP REGISTER TO 

SET THE UNIBUS MAP 



US. 
REGISTER 



10 

VAL1D1 

V HMBLK 

#T, HMBLK ERR 

PREPJRR 

VALID2 

LABEL 

#1. HMBLK ERR 

PRgP^ERR 

#CRDPACK1,CRDP 

PREP.ERR 

#CRDPACK2,ACK. 



TEST IF THE HOME BLOCK IS VALID 
IF EQ THEN POSSIBLY CONTROLLER, 
DRIVE OR DISK ERROR 



COMPARE LABEL 
IF NOT CORRECT 
PRINT ERROR PREP 



2Z-ENKAZ"1,3 

EM;AZ02 

01-30 



TEST 8 RA60 AND RC25 VERIFY PACK LA8EL C U-JUN-1984 ^^^ Fich. 

- U0A50, LESI, IOC SIZING TESTS ^J^N- W 6:1 

TEST 8 RA60 AND RC25 VERIFY PACK LABEL C U-JUN-1984 13:, 



I 1 Frame 15 
14:00 VAX-11 Macro 
f8!26 



Seguence 60 
V03-0T 



Page 
DfiBO:CBALL.£NKAZ.ENKAZ_nENKAZO 



^2 
2A.(3) 



03 
PAAA 



F9F2 CI 01 
03 F9EA CF 
F76r 
F'SE' 



54 



F967 CF 
F95C CF 



5A 



0? A7 

27 

8000 8F 

8000 8F 

5A 67 

02 A7 

10 

F94F 



F991 



CF 
F4 
CF 
04 



50 01 



50 



F7DD 
0054 



CF 
8F 



12 088D 

31 088F 

0892 

0892 

90 0892 

E8 0897 

31 089C 

31 089F 

08A2 

08A2 

60 08A2 

12 08A6 

A8 08A8 

A8 08AF 

BO 08B6 

60 08B9 

12 088D 

65 08BF 

19 08C3 

B5 08C5 

12 C8C9 

08C8 

08C8 

08Ce 

08C8 

3C 08C8 

05 08CE 

08CF 

08CF 

08CF 

08CF 

08CF 

94 08CF 

3C 08D3 

05 0808 

0809 

0809 

0809 



498 

499 
500 
501 
502 
503 
504 
505 
506 
50? 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 

518 
519 
520 
521 
522 
523 
524 

525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 



BNEO 
6RW 

PREPJ^R: 

Move 

BLBS 
6RW 
20$: 6RU 



10: 



30$: 



MOVW 
BNEQ 
6ISW 
BISW 
MOVW 
MovW 
BNeq 
TSTW 
BLSS 
TSTW 
BNEQ 



PREP.ERR 
LESIIUOA.PARAM 



#KSPIN DWN 
RC25_PRES,20$ 
RA60.TEST 
RC25:teST 



U0ASA(R7),R4 

ERR0R1 

#OWN, CO+2 

#OWN, RD+2 

U0AIP(R7),R4 

UdaSa(R7), R4 

Errorl 

RO+2 

30$ 

RSPPKT*MSCP$W.STATUS 

ERR0R1 



PREPARATION ERROR WRONG PACK 
TEST If RC25 



Controller offline? 

Yep, error out 

Set controller ownership 

onto 

Tell controller to read 

Any problems? 

Yes 

Any response back? 

No, spin until there is 

Any drive errors? 

Yes 



Transfer is coft^plete. Return with success status code. 



MOVZWL #SS$,.NORWAL,R0 
RSB 



SET COMPLETION CODE 
AND RETURN 



; Error occured during transfer. Return and retry. 
ERR0R1 ; 



ClrB W*Init 

MOVZWL #SS$.CTRLERR,RO 

Rsa 



.END 



; Must re-in1t next ti'me 
; Set failure status 
; Return to BOOTDRIVR 



ZZ-ENKAZ-1.3 
EMKAZOS 
Symbol table 

ACK 

BAD'OiSK 

BYTE OFF 

CD " 

CHDINT 

CMDPKT 

CRDP 

CR0PACK1 

CRDPACK2 

C D RDY 

DRI^EO 

0StGB.UDA5O.INI T 

0S1 

ERROR 

ERR0R1 

ERROR ROUTINE 

fUNC 

GO 

HMBLK BUFF 

HMBLK ERR 

IOC " 

IDC.CSR 

IDC^HLD 

IDC PARAM 

IDC"PARAM 1 

1DC"TST " 

INiT 

INI! DRVO 

INTTBl 

10 

lOt.REAOLBLK 

labEl 

LESI UDA PARAM 
LOOP" 
MCHK If»C 
MCHK'lES UOA 
MODE" " 
MSCPSB BUFFER 
ISCPSBlOPCOOF 
HSCP$K^OP^CNLIN 
MSCPU^OP.READ 

hscp$k_st,5ucc 
•^iscp$l,ryTe^cnt 

MSfPSL LBN 

«SCPSQ"uNn^ID 

MSCP$W,SlArOS 

NOCNTL^.FND 

NQORWE^O.1 

NORMAL 

OWN 

PR$ MAPEN 

PR730$,TO0R 

PREP EfiR 

PTE$B PFN 

RA60 Test 

RA8081 TEST 

RA81 PRES 



Symbol table 



- UDA50, LESI, IDC SIZING TESTS 



J 5 
U-JUN-198A Fkhe 1 Frame J5 Seguence 61 

U-JUN-198A 16:04:00 VAX-11 Macro V03-0T Page 13 
H-JUN-1984 13:28:26 DRB0:[BALL.ENKA2.ENKAZ,1 JENKAZ02A. (3) 



000007DC R 
00000288 R6 
00000077 R 
OOQ002U R 
0000020C R 
0000021 C R 
000007D8 R 
50A45243 
2048A341 
00000081 6 
000003B5 R6 
OOOOOOBO RG 
00000100 G 
000000A2 R 
000008CF R 

00000010 
00000001 
00000600 R 
00000287 RG 

000002EE R 

******** X 

0000028A RG 
0000038A RG 
OOOO035C RG 
0000028E RG 
OOOOOOBO R 
00000A47 RG 

00000200 R 

000008A2 R 
00000021 

00000879 R 

00000336 RG 

00000063 R 

« A****** X 

********* X 

000000 u 

00000010 

00000008 

0000GC09 

00000021 

00000000 

OOOOOOOC 

0000001 C 

00000014 

COOOCOOA 

****«1llL* X 



ooooo; 



|8§ 

;f8 



RG 
R 



00008000 

QQQQQ938 

0000089? R 
OOIFFFF*- 
******** X 

******** X 
0C00028A RG 



02 
02 
02 
02 
02 
02 
02 



02 
02 

02 
02 
02 



02 
03 

02 



02 

02 
02 
02 



RC25 PRES 

RC25:tEST 

RD 

RETRY 

RING 

RP8$L ADPPHY 

RPe$L.ADPVlR 

RP6$L CSRPHV 

RPSSLlCSRVIfi 

RPBSL SVASPT 

RPBSW^UNIT 

RPB BDFF 

RSPiNT 

RSPPKT 

SI 

S4 

SC84 

SPIN DWN 

SSSJTRLERR 

SSS.NORKAL 

TEST 6 

test:? 

TEST.8 

TIME 

UBASL MAP 

UBASMlBRRVR AIR 

UDAIP 

UDASA 

UDA^LESI 

UDA.LESl, CSR 

uda^respOnse 

UDjRIVERI 
UD.INIT 

umR 

UNEX^E.l 
VA$S VPN 
VA$V VPN 
VALID 
VALIDl 
VALID2 
V HMBLK 
wPAT DRIVE 
WHAT ^30DE 



00000285 RG 



******** 



'm 



R 
R 




******** 



00000651 

00000210 R 

QOOOO05C 

00000060 

00000054 

00000058 

00000050 

00000064 
******** 

0000020t fi 
00000250 R 
OOOOOOOB 

OOOOOOOE 

******** 

00000289 RG 

0000Q05A 

00000001 

00g002F3 RG 

000003AC RG 

00000800 RG 

OOOOOUSB R 

O00QO800 

80000000 

OOOOOOOO 

O0QQO0O2 

0000031 F 

******** 



RG 



00000250 RG 



******** 

= 00000015 
= 00000009 
OOOOOOAC R 
OQ0Q5604 R 
Q0000608 R 
0000086C 
01000280 



RG 
RG 



02 
02 
02 
02 
02 



02 
02 
02 



02 
02 



02 
02 
02 
02 



02 
02 
02 
02 

02 



02 

o| 

02 



80 RG Oi 



C2 



ZZ-ENKAZ-1.? 

ENKA202 

Psect synopsis 



Psect synopsis 



- U[>A50, LESI, JDC SI7ING TESTS 



K 5 
';4-JUN-198/i Fiche 1 Frame K5 ^^Seguence 62 

K-JUN-198A 16:0A:00 VAX-11 Macro V03-0T Paoe U 

H-JUN-1984 13:28:26 DR00:CBALL.ENKA2.£NKAZ_1JENKAZ02A. (3) 



PSECT name 

ABS . 
SABS$ 
SIZING 



Allocation 

00000000 ( 
00000000 ( 
000008D9 ( 



+-«-•**— .^^ — ^-- — + 
I Psect synopsis I 

PSECT No, Attributes 

0.) 00 ( 0.) NOPIC USR 

0.) 01 ( 1.) NOPIC USR 

2265.) 02 ( 2.) NOPIC USR 



CON 


ABS 


LCL 


NOSHR 


NOEXE 


NORD 


NOWRT 


NOVEC 


BYTE 


roN 


ABS 


I, CI, 


NOSHR 


EXE 


RD 


WRT 


NOVEC 


BYIE 


CON 


REL 


LCL 


NOSHR 


EXE 


RO 


WRT 


NOVEC 


PAGE 



ZZ-ENKAZ-1.3 

ENKAZ02 

Cross reference 



Cross reference 



- UDA50. LESI. IDC SIZING TESTS 



L 5 
14-JUN-1984 Fiche 1 Frame L5 Seguence 63 

14-JUN-1984 16:0'*:00 VAX-11 Macro V03-0T Page 15 

14-JUN-1984 13:28:26 0RB0:CBALL.ENKA2.ENKAZ_1DENKAZP2A. (3) 



SYMBOL 

ACK 

BA0"DI5»^ 

BYTE OFF 

CD 

CMDINT 

CMDPKT 

CRDP 

CRDPACK1 

CRDPACK2 

CD ROY 

DRI9E0 

DSSGB UDA50,INIT 

DS1 

ERROR 

ERR0R1 

ERROR ROUTINE 

FUNC " 

GO 

HMBLK BUFC 

HMBLK ERR 

IDC " 

IDC CSR 

IDC^HLD 

IDC PARAM 

IDC PARAM 1 

IDC"TST " 

INIT 

init drvo 
inttBl 

10 

10$ READLBLK 

LABEL 

LESI UDA PARAM 

LOOP" " 

MCHK IDC 

MCHK LES^UDA 

MODE 

mscpib^buffer 
mscpsb^opcode 
mscpsk op onlin 
mscp$k op read 
mscp$Cst^succ 

MSCPSL BYTE.CNT 
MSCP$L,LBN 
MSCP$Q UNIT^JD 
MSCPSW STATDS 

nocntlR.fnd 

NODRIVE.0.1 
NORMAL 





! Symbol Cross Reference J 










VALUE 


DEFINITION 


REFERENCES... 










000007DC-R 


456 


(3) 


#-497 


(3) 










00000288-R 


258 


(3) 


#-386 


(3) 


#-404 


(3) 






00000077-.R 


155 


(2) 


#-119 


(2) 


#-165 


(2) 


#-168 


(2) 


0000021 4-R 


199 


(2) 


#-169 


(2) 


#-510 


(3) 






0000020C-R 


195 


(2) 














0000021 C-R 


203 


(2) 


167 
#-469 


.2) 
(3) 


387 
#-481 


(3) 
(3) 


#-467 


(3) 


000007D8-R 


455 


(3) 


#-495 


(3) 










=50445243 


250 


(3) 


#-495 


(3) 










=20464341 


251 


(3) 


#-497 


(3) 










=00000081 


26^ 


(3) 


#-315 


(3) 










000003B5-R 


383 


(3) 


#-437 


<3) 










00000080-R 


180 


(2) 














=00000100 


265 


(3) 


#-312 


(3) 










O0OOO0A2-R 


172 


(2) 


A-148 


(2) 


#-152 


(?) 






000008CF-R 


529 


(3) 


#-509 


(3) 


#-514 


(3) 


#-518 


(3) 


OOOOOOOO-XR 






#-295 


(3) 


#-431 


(3) 






=00000010 


247 


(3) 


#-465 


(3) 










=00000001 


76 


(2) 


192 


(2) 










00000600-R 


451 


(3) 


473 


(3) 










00000287-R 


257 


(3) 


#-460 


(3) 


#-487 


(3) 


#-492 


(3) 


000002EE-R 


311 


(3) 














00000000-XR 






#-312 


(3) 


#-313 


(3) 






0000028A-R 


266 


(3) 


#-313 


(3) 


#-314 


(3) 






00000384-R 


359 


(3) 


#-313 


(3) 










000OO35C-R 


347 


(3) 


#-317 


<3) 










0000028E-'R 


267 


(3) 


#-314 


(3) 


#-315 


(3) 






00000080-R 


181 


(2) 


#-290 


(3) 


#-296 


(3) 


#-530 


(3) 


00000447-R 


434 


(3) 


#-429 


(3) 










00000200-R 


190 


(2) 


118 


(2) 


#-121 


(2) 


139 


(2) 


000008A2-R 


508 


(3) 


#-393 


(3) 


#-483 


(3) 






=00000021 






#-465 


(3) 










00000879-R 


494 


(3) 


#-491 


(3) 










00000336-R 


334 


(3) 


#-499 


(3) 










00000063-R 


147 


(2) 


#-153 


(2) 










OOOOQOQO-XR 
OOOOQQOO-XR 






309 


(3) 














321 


(3) 










:8?8ijS 


248 


(3) 


#-481 


(3) 










=00000008 






#-467 


(3) 










=00000009 






#-390 


(3) 










=00000021 






m 


(3) 










=00000000 
=OOQQ00OC 
=00000010 






(3) 














#-469 
#-468 


(3) 
(3) 










=00000014 






#-409 


(3) 










=000Q000A 
OOOOOOQO-XR 
00000286-R 






#-396 


(3) 


#-517 


(3) 










#-294 


<3) 










256 


(3) 


#-384 


(3) 


#-430 


(3) 






000003F8-R 


407 


(3) 


#-398 


(3) 


#-402 


(3) 







#-468 



(3) 



ZZ-ENKAZ-1.3 

ENKAZ02 

Cross reference 

OWN 

PR$ MAPEN 

PR730$^T0DR 

PREP ERR 

PTESR PFN 

RA60 Test 

RA8081 TEST 

RA81 PRES 

RC25"PRES 

RC25"TEST 

RO 

RETRY 

RING 

RP3$L AnPPHY 

RPB$L"ADPVIR 

RPe$L"CSRPHY 

RPBSL'CSRVIR 

RPB$L SVASPT 

RPBSW UNIT 

RPB BUFF 

RSPINT 

RSPPKT 

SI 

SCB^ 
SPIN DWN 

SS$ Ctrlerr 

SS$"N0RMAL 

TESL6 

TEST^7 

TESTES 

TIME 

UBA$L MAP 

UBA$M"8RRVR AIR 

UDAIP" 

UDASA 

UDA^L^SI 

uoa lesi csr 
uda"respDnse 

UD 5RIVFR1 
UD"INI' 
UMR 
UN£X_E,I 

va$s„vPn 

VASV.VPN 
VALlt5 
VALID I 
VALID2 
V HMBLK 
wRAT DRIVE 
WHAr"MODE 



M 5 



Cross 



re 


terence 






14- 


■JUN-1984 


Fiche 


1 Frame 


M5 Sequence 
11 Macro V03-0T 




- UDA50, LESI. IDC 


SIZING 


TEsrs 




14-JUN-1984 16:04 


:00 VAX- 














14-JUN-1984 13:28:26 ORBO 


:CBALL.ENKAZ.ENKA2.1 




=00008000 


17 


(2) 


190 


(2) 


#-510 


(3) 


#-511 


(3) 




=00000038 






#-110 


(2) 












=00000018 






#-U5 


(2) 


#-150 


(2) 








00000892-R 


501 


(3) 


#-488 


(3) 


#-493 


(3) 


#-496 


(3) #-498 (3) 




=001FFFFF 






#-129 


(2) 












00000000-XR 






#-412 


(3) 


#-504 


(3) 








00000000-XR 






#-416 


(3) 


#-421 


(3) 








0000028';-R 


25A 


(3> 


#-420 


(3) 












00000285-R 


255 


<3) 


#-425 


(3) 


#-503 


(5) 








00000000-XR 






#-426 


(3) 


#-505 


(3) 








0000021 0-R 


198 


(2) 


#-166 


(2) 


#-511 


(3) 


#-515 


(3) 




00000051 -R 


139 


(2) 


#-172 


(2) 












0000021 0-R 


197 


(2) 


#-121 


(2) 












=0000005C 






123 


(2) 


#-124 


(2) 


#-282 


(3) 




=00000060 






123 


(2) 


#-283 


(3) 








i0000005A 






125 


(2) 


#-126 


(2) 


#-287 


(3) 




=00000058 






125 


(2) 


#-288 


(3) 








=00000050 






#-128 


(2) 












=0000006A 






#-381 


(3) 


#-389 


(3) 


#-435 


(3) 




00000000-XR 






279 


(3) 












0000020E-R 


196 


(2) 
















00000250-R 


208 


(2) 


164 


(2) 


#-396 


(3) 


#-409 


(3) #-517 (3) 




=00000008 


78 


(2) 


#-140 


(2) 












=0000000E 


79 


(2) 


#•159 


(2) 












00000000-XR 






V-278 


(3) 


#-309 


(3) 


#-321 


(3) 




00000289-R 


259 


(3) 


/-385 


(3) 


#-401 


(5) 


#-502 


(5) 




=0000005^ 






#-173 


(2) 


#-531 


(3) 








=00000001 






#-523 


(3) 












OO00O2E3-R 


308 


(3) 
















000003AC-R 


380 


(3) 


#-291 


(3) 












00000800-R 


^59 


(3) 
















0000005B-R 


145 


(2) 


#-159 


(2) 












=00000800 






130 


(2) 


475 


(3) 








=80000000 






#-477 


(3) 


#-479 


<3) 








=00000000 


7A 


(2) 


#-141 


(2) 


#-512 


(3) 








=00000002 


75 


(2) 


#-147 


(2) 


#-158 


(2) 


#-508 


(3) #-513 (3) 




0000031 F-R 


320 


(3) 
















00000000-XR 
00000250-R 






#-325 


(3) 












207 


(2) 
















00000292-R 


272 


(3) 


330 


(3) 












00000000-R 


106 


(2) 


292 


(3) 












=000001 EE 


80 


(2) 


#-117 


(2) 


130 


(2) 








00000000-XR 






278 


(3) 












=00000015 
=00000009 






#-122 


(2) 


#-474 


(3) 


#-i80 


(3) 








#-122 


(2) 


#-474 


(3) 


#-480 


(3) 




OOOOOOAC-R 


178 


fP) 


#-131 


(2) 


#-133 


C2) 








00000604-R 


A52 


(3) 


#«485 


(3) 












00000608-R 


455 


(5) 


#-490 


(3) 












0C00086C-R 


489 


(3) 


#-486 


(3) 












00000280-R 


253 


(3) 


#-339 


(3) 


#-382 


(5) 


#-428 


(3) #-436 (3) 




OOOOOOOO-XR 






#-341 


(3) 


#-354 


(3) 


#-366 


(5) 



64 
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IT ION 


! Macros Cross 


Reference ! 




DEf IN 


REFERENCES. 
59 (2) 


• • 




59 


(2) 




S9 


(2) 


59 (2) 


60 


(2J 






64 (2) 


65 


(2) 






69 (2) 






60 


(2; 


60 (2) 






61 


<2) 


61 (2) 






63 


<2) 


65 (2) 






62 


!2) 


62 (2) 






6^ 


(2) 


6A (2) 






65 


<2) 


65 (2) 






66 


(2) 


66 (2) 






67 


(2) 


67 (2) 






68 


(2) 


68 (2) 






69 


(2) 


69 (2) 






123 


(2) 


123 (2) 


125 


(2) 



MACRO SIZE 

SDEHNl 1 59 (2) 59 (2) 60 (2) 61 (2) 62 (2) 63 (2) 

^^^ ^^ 64 (2) 65 (2) 66 (2) 67 (2) 68 (2) 

69 (2) 

lIOOEF 1' 

SMSCPDEF 18 

$PR730DEF 1 

$PRDEF U 

SPTEOEF 5 

SRPBDEF 5 

SSSDEF ?1 

SUBAOEF 6 

SuBiDEF 2 

SVADEF 1 

ASSUME 1 



L 



Z2-ENKA2-1.3 

ENKAZOS 

Cross reference 



Cross reference 



" UDA50, LESI, IDC SIZING TESTS 



6 6 

1A-JUN-198A Fi'che 1 Frame B6 Seguence 66 

14-JUN-1984 16:04:00 VAX-11 Macro V03-01 Page 18 
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+-- .^— .- ^ + 

: Opcode Cross Reference I 



OPCODE 

ADOL 

AOBLFQ 

BBS 

BEQL 

BGTRU 

BICL 

BICu3 

BiSL3 

BISW 

BL8C 

BLBS 

BLSS 

8NE0 

BR6 

BRW 

BSQ6 

BSBW 
CALLS 
CLRB 
CLRL 

CLRO 

CLRW 

CMPB 

CMPL 

CHPU 

EXTZV 

INCL 

INSV 

J MP 

MFPR 

MOVAB 

MOVAL 

MOVB 

MOVL 



MOVW 
MOVZBL 
MOVZWL 
RET 

RSB 



VALUE 

OOCO 
OOF 3 
OOEO 
0013 
001A 
OOCA 
OOCB 
00C9 
00A8 
00E9 
00E8 
0019 
0012 

0011 
0031 

0010 
0030 
OOFB 
0094 
00D4 

007C 
00B4 
0091 
00D1 
O0B1 
OOEF 
O0D6 
OOFO 
0017 

O0D6 
009E 

OODE 
0090 

0000 



REFERENCES.. 



ooeo 

009A 
003C 
0004 
0005 



121 

159 

149 

398 

152 

129 

119 

120 

510 

127 

293 

148 

316 

486 

153 

291 

426 

483 

393 

292 

384 

340 

408 

391 

141 

315 

151 

399 

122 

132 

480 

344 

110 

118 

387 

130 

296 

487 

117 

282 
313 
349 
362 
388 
465 
147 
314 
173 
170 
524 



(2) 

(2) 

(2) 

(3) 

(2) 

(2) 

(2) 

<2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(3) 

(2) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(2) 

(3) 

(3) 

(2) 

(2) 

(3) 

(2) 

(3) 

(3) 

(2) 

(3) 

(3> 

(3) 

(3) 

(3) 

(3) 

(2) 

(3) 

(2) 

(2) 

(3) 



165 

131 
511 
290 
503 
516 
400 
491 
40? 
295 
431 



330 
385 
342 
461 
392 

397 

410 

474 
478 

357 

145 
159 

27 B 

401 

492 

124 

283 

336 

350 

363 

409 

468 

158 

389 

523 

174 

532 



(2) 

(2) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 



<3) 
(3) 
(3) 
(3) 
(3) 

(3) 

(3) 

<3) 
(3) 

(5) 
(2) 
(2> 

(3) 
(3) 
(3) 
(2) 
(3) 
(3) 
(3) 
(3) 
(3) 
(I) 

<V 
(3) 

(3) 

(2) 
(3) 



168 
133 



411 
496 
488 
317 
437 



386 
353 



414 



369 
150 
146 

309 
404 
502 
126 
285 
337 
351 
364 
435 
469 
325 
390 
531 



(2) 
(2) 



(3) 
(3) 
(3) 
(3) 
(3) 



(3) 
(3) 



(3) 



(3) 
<2) 

(2) 

(3) 
(3> 
(3) 
(2) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3> 



166 



415 
498 
493 
318 
499 



4< 

3! 



418 



164 

473 

A20 



(2) 



(3) 
(3) 
(3) 
(3) 
(3) 



(3) 
(3) 



(3) 



(2) 

(3) 
(3) 

(2) 

(3) 

(!) 
<!> 

(3) 

(3) 



169 



423 



167 

475 

425 



508 



(2) 



(3) 



(2) 

(3) 
(3) 

^V 
(3) 

<^ 

<h 
(3) 

(3) 



477 



(3) 



495 



(5) 



279 (3) 



430 



(3) 



512 (3) 



479 



497 



321 



466 

280 
312 
343 

46A 
513 



(3) 



419 

509 


(3) 

(3) 


424 
514 


(3) 
(3) 


429 

518 


(3) 
(3) 


412 
504 


(3) 
(3) 


416 
5U5 


(3) 

(3) 


421 


<3) 


530 
365 


(3) 
(3) 


367 


(3) 


595 


<3) 



(3) 



(3) 



(3) 

(3) 
(3) 
(3) 

(3) 
(3) 

(3) 



-.-. J 



2Z-ENKA2-1.3 

ENKAZO? 

Cross reference 

SOBGfR OOFS 

TSTL 00D5 

^STW 0085 



Cross reference 



- U0A50, LESl. IDC SIZING TESTS 



C 6 
U-JUN-198A Fkhe 1 

U-JUN-198A 16:0^: 
U-JUN-198A 13:28: 



Frame C6 Seguence 67 

)0 VAX-11 Macro VQ5-0T Page 19 

!6 0RB0:CBALL.ENKAZ.eNKAZ.l]ENKA?02A.(3) 



\72 
t.2h 
515 



(2) 
(5) 
(3) 



A85 
517 



(3) 
(3) 



A90 



(3) 






ZZ-ENKAZ-1.3 

ENKAZ02 

Cross reference 



Cross reter^ence 



- UDA50, lESI, IDC SIZING TESTS 



D 6 
1A-JUN-198^ Fi'che 1 Frame D6 Seguence 68 

U-JUN-1984 16:0A:00 VAX-11 Macro V03-0T Page 20 

U-JUN-1984 13:28:26 DRB0:CBALL.ENKAZ-ENKA2_13ENKAZ02A,(3) 



+ + 

! Directives Cross Reference ! 
+-—-,- + 



DIRECTIVE 

.ALIGN 

.BLKL 

.BLKW 

.BYTE 

.DISABLE 

■ENABLE 

.END 

.ENDC 

.ENDM 

.ENTRY 

.IDFNT 

-IF 

.IFF 

.LONG 

.NOCROSS 

■ PAGE 
.PSECT 

.RESTORE 

.SAVE 

.SBTTL 
.TITLE 
.WORD 



REFERENCES 



188 

A5A 

20A 

182 

176 

108 

535 

123 

123 

66 

106 

2 

123 

123 

156 

A51 

59 

67 

299 

90 

59 

67 

59 

67 

210 

1 

190 



(2) 
(3) 
(2) 
(2) 
(2) 
(2) 
(3) 
(2) 
(2) 
(2) 
<2) 
(1) 
(2) 
(2) 
(2) 
(3) 
(2) 
(2) 
(3) 
(2) 
(2) 
(2) 
<2) 
(2) 
(3) 
(1) 
(2) 



/,A9 
A57 
206 
25A 



125 
59 
67 
272 

125 

125 

178 

452 

60 

68 

372 

60 
68 
60 
68 
300 

192 



(3) 
(3) 
(2) 
(3) 



(2) 
(2) 
(2) 
(3) 

(2) 
(2) 
(2) 
(3> 
<2) 
(2) 
(3) 

(2) 
(2) 
(2) 
(2) 
(3) 

(2) 



208 
255 



60 
68 



191 

A53 

61 

69 

AAO 

61 
69 
61 
69 
373 

19A 



(2) 
(3) 



(2) 
(2) 



(2) 
(3) 
(2) 
(2) 
(3) 

(2) 
(2) 
(2) 
(2) 
(3) 

(2) 



256 



61 
69 



198 
^^55 
62 



62 
62 
U^ 
195 



(3) 



(2) 
(2> 



(2) 
(3) 
(2) 



(2) 
(2) 
(3) 
(2> 



257 



62 



199 
456 
63 



63 
63 
54 
196 



(3) 



(2) 



(2) 
(3) 
(2) 



(2) 
(2) 
(2) 
(2) 



258 



63 



(3) 259 (3) 



(2) 64 



(2) 65 



(?) 



253 


(3) 


266 


(3) 


267 


^3) 


64 


(2) 


65 


(2) 


06 


(2) 


64 


(2) 


65 


(2) 


66 


(2) 


64 


<2) 


65 


(2) 


66 


(2) 


92 


(2) 










201 


(2) 


202 


(2) 


203 


(2) 



ZZ-ENKAZ-1.3 

EMKAZ02 

Cross reference 



Cross reference 



- UDA50, LESl, IDC SIZING TESTS 



REGISTER NO. REFERENCES 



AP 
FP 
RO 



R1 



RIO 
R2 



R3 
RA 
R5 



R6 
R7 

R8 
R9 

SP 



1 

3 

15 



18 



4 
31 



16 
13 



6 
^? 

6 

n 



E 6 
U-JUN-1984 Fi'che 1 Frame E6 

U-JUN-1984 16:04:00 VAX-11 Mdcro 
U-JUN-1984 13:28:26 



Sequence 69 
V03-0T 



21 



DR80 : [BALL . ENKAZ .ENKAZ.1 3ENKAZ02A. (3) 



+ -..- — — — -« — *-+ 

1 Register Cross Reference ! 



REFERENCES... 



Phase 

Initialization 

Command processing 

Pass 1 

Symbol table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

C oss-reference output 

Assembler run totals 



#-A65 
#-342 
#-110 
#-159 
#-361 
#-119 
#-166 
#-362 
#-475 

106 
#-128 

146 
#-395 
#-410 

106 
#-280 
#-462 

106 

272 
#-479 

106 
#-388 
#-468 

106 

106 
#-285 

106 
#-124 
#-287 
y-343 



(3) 
(3) 
(2) 
(2) 
(3) 
(2) 
C2) 
(3) 
(3) 
(2) 
(2) 
(2) 
(3) 
(3) 
(2) 
(3) 
(3) 
(2) 
(3) 
(3) 
(2) 
(3) 
(3) 
(2) 
(2) 
(3) 
(2) 
(2) 
(3) 
(3) 



#-355 
#-124 
#-173 
#-523 
#-120 
#-167 
#-461 

474 
#-118 
#-129 
#-151 
#-396 
#-414 
#«124 
#-282 

475 
#-130 
#-340 
#-508 

272 
#-389 

#-117 
#-126 
#-287 
#-138 
#-126 
#-288 
344 



! Performance indicators ! 

+ — ..-+ 



(3) 


#-367 


(3) 














(2) 


#-126 


(2) 


#-127 


(2) 


#-140 


(2) 


#-149 


(2) 


(2) 


#-293 


(3) 


#-325 


(3) 


#-336 


(3) 


#-349 


(3) 


(?) 


#-531 


(3) 














(2) 


#-150 


(2) 


#-151 


(2) 


#-164 


(2) 


#-165 


(2) 


(2) 


#-168 


(2) 


#-169 


(2) 


#-33' 


(3) 


#-350 


(3) 


(3) 


#-474 


(3) 


#-477 


(3) 


#-478 


(3) 


#-479 


(3) 


(3) 


480 


(3) 


#-481 


(3) 










(2) 


#-119 


(2) 


#-120 


(2) 


#-121 


\2) 


122 


(2) 


(2) 


#-131 


(2) 


#-132 


(2) 


#-133 


(2) 


#-145 


(2) 


(2) 


272 


(3) 


#-338 


(3) 


#-351 


(3) 


#-363 


(3) 


(3) 


#-397 


(3) 


#-399 


(3) 


#-A08 


(3) 


#-409 


(3) 


(3) 


#-418 


(3) 


#-423 


(3) 










(2) 


130 


(2) 


#-139 


(2) 


#-158 


(2) 


272 


(3) 


(3) 
(3) 
(2) 


#-283 


(3) 


#-339 


(3) 


#-352 


(3) 


#-364 


(3) 


#-131 


(2) 


#-133 


(2) 


#-147 


(2) 


149 


(2) 


(3) 


#-353 


(3) 


#-365 


(3) 


#-475 


(3) 


#-477 


(3) 


(3) 


#-512 


(3) 


#-513 


(3) 










(3) 


#-341 


(3) 


#-354 


(3) 


#-366 


(3) 


#-387 


(3) 


(3) 


#-390 


(3) 


#-391 


(3) 


#-392 


(3) 


#-463 


(3) 


(2) 


#-120 


(2) 


#-166 


(2) 


#-169 


(2) 


272 


(3) 


C2) 


#-141 


(2) 


#-147 


(2) 


#-158 


(2) 


272 


(3) 


(3) 


#-288 


(3) 


#-508 


(3) 


#-512 


(3) 


#-515 


(3) 


(2) 


#-172 


(2) 


272 


(3) 


#-464 


(3) 


#-469 


(3) 


(2) 


#-128 


(2) 


#-279 


(3) 


#-282 


(3) 


#-283 


(3) 


(3) 


#-381 


(3) 


#-389 


(3) 


#-435 


(3) 






(3) 


#-356 


(3) 


357 


(3) 


#-368 


(3) 


369 


(3) 



Page faults CPU Time 



Elapsed Time 



96 

u! 

1775 

38 

39? 

40 

6 

188 

2683 



00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 
00:00: 



00.49 
00.70 
20.87 
02.60 
03.11 
00.11 
00.03 
01.02 
28.95 



00:00: 

00:00: 

00:02: 

00:00: 



0. . 

00:00: 

00:00: 

00:03: 



02.89 
04.11 
39.91 
32.38 
28.54 
00.95 
00.29 
07.56 
56.65 



The working set limit was 
82237 bytes (161 pages) o 
There were 90 pages of symbol 



500 pages, 
f virtual memory 
table space 



were used 
allocated 



to 

to 



buffer the intermediate code. 

hold 1624 non-local and 12 local symbols 



F 6 
ZZ-FNKAZ-1.3 Cross reference U-JUN-198A Fuhe 1 Frame F6 Sequence 70 

NKAZ02 - UDA50, LESI, IDC SIZING TESTS U.JUN-198A 16:0^:00 VAX-11 Macro V03-01 ^^ ^^^^ Paae 22 

VAX-11 Macro Run Statistics U-JUN-198^ 13:28:26 DReO:C8ALL.ENKAZ.ENKA2.nENKAZ02A. (3) 

535 source lines were read In Pass 1, producing 22 object records in Pass 2. 
60 pages of virtual memory were used to define 18 macros. 

+ + 

! Macro library statistics I 

Macro library name Macros defined 

0RB1:CDS.WORK]DS.MLB;218 

SYS$SYSROOT:[SYSLIB]LIB.MLB;1 7 

SYS$SYSR00T:CSYSLIB]STARLET.MLB;1 8 

TOTALS (all libraries) 15 

T657 GETS were required to define 15 macros. 

There were no errors* warnings or information messages. 

MACRO/OBJ/LIST/CROSS=ALL ENKAZ02A+SYS$LIBRARY:LI8/LI8+0R81 :CDS.WORK]DS.MLB/LlB 



ZZ-ENKAZ-1.3 Directory 



G 6 

U-JUN-1984 



Fiche 1 Frame G6 



Sequence 71 



Fiche 



Frame Sequence 

B1 1 Documentation 

El A Map 

Ml 12 CRD HARDCORE INST'^UCTION TESTS 

D2 16 DECLARATIONS 

k2 23 BOOSREADPROMPT - Prompt and read Input s 

M2 25 PR0MPT1 - Routine to prompt console for 

N2 26 BOOSTYPE ASCIC - Type a counted ASCJJ st 

83 27 PRINT ROOTINE 

C3 28 ERROR ROUTINE 

E3 30 RA60 PRINT ROUTINE 

F3 31 RA80 AND RA81 PRINT ROUTINE 

G3 32 RC25 PRINT ROUTINE 

13 3A EXCEPTION HANDLER ROUTINES 

M 35 INITIALIZATION ROUTINE 

K3 36 TEST 2: SOBGEQ, SOBGTR Test 

l3 V TEST 3: BBS, BBC Test 

M3 38 TEST ^: BBSS, BBCS Test 

N3 39 TEST 5: BLBS, BLBC Test 

BA 40 Diagnosfic Subroutines 

CA A1 Symbol table 

EA 43 Cross reference 

JA AS * UDA50, LESI, IDC SIZING TESTS 

LA 50 DECLARATIONS 

MA 51 UDA50 Bootstrap device Initialization 

B5 53 UDA50 Bootstrap driver QIO 

D5 55 TEST () DETERMINING CRD BASE CONTROLLER 

F5 57 TESr 7 SIZE CRD DISK OPTIONS AND CHECK D 

h5 59 TEST 8 RA60 AND RC25 VERIFY PACK LABEL C 

j5 61 Symbol table 

k5 62 Psect synopsis 

i5 63 Cross reference 



1A-JUN- 
U-JUN- 
U-JUN- 
lA-JUN- 
lA-JUN- 
1A-JUN- 
U-JUN" 
U-JUN- 
U-JUN- 
U-JUN- 
U-JUN' 
U-JUN- 
U- JUN- 
TA- JUN- 
U-JUN' 
U-JUN' 
U-JUN- 
U-JUN' 
U-JUN' 
U- JUN- 
TA- JUN' 
U-JUN- 
U-JUN- 
U-JUN- 
U-JUN- 
U-JUN' 
U-JUN' 
U-JUN 
U-JUN 



•198A 
•198A 
■198A 
•198A 
'198A 
•198A 
•198A 
•198A 
•198A 
•1984 
'198A 
•198A 
•198A 
•198A 
•198A 
•198A 
•198A 
-198 A 
■198A 
-198A 
'198A 
■198A 
■198A 
-'r98A 
-198A 
-198 A 
-198A 
'198A 
•198A 



B 




Documentation 


J 


5 


Symbol table 


r 




Documentation 


K 


5 


Psect synopsis 


n 




Documentation 


L 


5 


Cross reference 


F 




Map 


M 


5 


Cross reference 


F 




Map 


N 


5 


Cross reference 


G 




Map 


B 


6 


Cross reference 


H 




Map 


C 


6 


Cross reference 


1 




Map 


D 


6 


Cross reference 


1 




Map 


E 


6 


Cross reference 


K 




Map 


F 


6 


Cross reference 


I 




Map 


G 


6 


Directory 


M 




CRD HARDCORE INSTRUCTION TESTS 








N 




CRD HARDCORE INSTRUCTION TESTS 








B 


? 


CRD HARDCORE INSTRUCTION TESTS 








C 


2 


CRD HARDCORE INSTRUCTION TESTS 










t- 


DECLARATIONS 








F 


? 


DECLARATIONS 








r 


2 


DECLARATIONS 








G 


2 


DECLARATIONS 








H 


2 


DECLARATIONS 








I 


2 


DECLARATIONS 








J 


2 


DECLARATIONS 








K 


2 


BOOtREADPROMPT - Prompt and re 








L 


2 


BOOSREADPROMPT - Prompt and re 








M 


2 


PR0MPT1 - Routine to prompt co 








N 


2 


BOOSTYPE ASCIC - Type a counte 








B 


3 


PRINT ROUTINE 








C 


3 


ERROR ROUTINE 








D 


3 


ERROR ROUTINE 








F 


3 


RA60 PRINT ROUTINE 








F 


5 


RA80 AND RA81 PRINT ROUTINE 








G 


3 


RC25 PRINT ROUTINE 








H 


3 


RC?5 PRINT ROUTINE 








I 


3 


EXlEPTION HANDLER ROUTINES 








J 


5 


INITIALIZATION ROUTINE 








K 


3 


TEST 2\ S06GEQ. S06GTR Test 








I 


3 


TEST 3: BBS. BBC Test 








M 


3 


TFST U\ BBSS, BBCS Test 








N 


3 


TEST 5: BLBS, BLBC Test 








B 


^ 


Diagnostic Subroutines 








{ 


U 


Symbol table 











A 


Symbol table 








F 


U 


Cross reference 








F 


4 


Cross reference 








G 


4 


Cross reference 








H 




Cross reference 








i 


u 


Cross reference 








J 


^ 


- UDA50. LESl, IDC SIZING TEST 








K 


4 


- UDA50, LESI, IDC SIZING TEST 








L 


-!; 


DECLARATIONS 








M 


u 


UDA50 Bootstrap device initial 








N 


4 


UDA50 Bootstrao device initial 








B 


5 


UDA50 Bootstrap driver 010 








t 


5 


UDA50 Bootstrap driver QiO 
TEST 6 DETERMINING CRD BASE CO 








D 


5 








F 


5 


TEST 6 DETERMINING CRD BASE CO 








F 


5 


TEST 7 SIZE CRD DISK OPTIONS A 








G 


5 


TEST 7 SIZE CRD DISK OPTIONS A 








H 


5 


TEST 8 RA'^n AND PC25 VERIFY PA 








I 


5 


TtST 8 RA6U AND RC35 VERIFY PA 









